ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_quadPack.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
138
139!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140
141module pm_quadPack
142
143 use pm_kind, only: SK, IK, LK, RKH, RKB
144 use pm_mathConst, only: ninf, ninf_type
145 use pm_mathConst, only: pinf, pinf_type
146
147 implicit none
148
149 character(*, SK), parameter :: MODULE_NAME = "@pm_quadPack"
150
151!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152
193 type :: wcauchy_type
194 real(RKH) :: cs
195 end type
196
237 interface wcauchy_type
238
239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
240
241#if RK5_ENABLED
242 PURE elemental module function constructWcauchy_RK5(cs) result(wcauchy)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK5
245#endif
246 use pm_kind, only: RKC => RK5
247 real(RKC) , intent(in) :: cs
248 type(wcauchy_type) :: wcauchy
249 end function
250#endif
251
252#if RK4_ENABLED
253 PURE elemental module function constructWcauchy_RK4(cs) result(wcauchy)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK4
256#endif
257 use pm_kind, only: RKC => RK4
258 real(RKC) , intent(in) :: cs
259 type(wcauchy_type) :: wcauchy
260 end function
261#endif
262
263#if RK3_ENABLED
264 PURE elemental module function constructWcauchy_RK3(cs) result(wcauchy)
265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
266 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK3
267#endif
268 use pm_kind, only: RKC => RK3
269 real(RKC) , intent(in) :: cs
270 type(wcauchy_type) :: wcauchy
271 end function
272#endif
273
274#if RK2_ENABLED
275 PURE elemental module function constructWcauchy_RK2(cs) result(wcauchy)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK2
278#endif
279 use pm_kind, only: RKC => RK2
280 real(RKC) , intent(in) :: cs
281 type(wcauchy_type) :: wcauchy
282 end function
283#endif
284
285#if RK1_ENABLED
286 PURE elemental module function constructWcauchy_RK1(cs) result(wcauchy)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK1
289#endif
290 use pm_kind, only: RKC => RK1
291 real(RKC) , intent(in) :: cs
292 type(wcauchy_type) :: wcauchy
293 end function
294#endif
295
296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297
298 end interface
299
300!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301
345 type :: wsin_type
346 real(RKH) :: omega
347 end type
348
389 interface wsin_type
390
391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392
393#if RK5_ENABLED
394 PURE elemental module function constructWsin_RK5(omega) result(wsin)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK5
397#endif
398 use pm_kind, only: RKC => RK5
399 real(RKC) , intent(in) :: omega
400 type(wsin_type) :: wsin
401 end function
402#endif
403
404#if RK4_ENABLED
405 PURE elemental module function constructWsin_RK4(omega) result(wsin)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK4
408#endif
409 use pm_kind, only: RKC => RK4
410 real(RKC) , intent(in) :: omega
411 type(wsin_type) :: wsin
412 end function
413#endif
414
415#if RK3_ENABLED
416 PURE elemental module function constructWsin_RK3(omega) result(wsin)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK3
419#endif
420 use pm_kind, only: RKC => RK3
421 real(RKC) , intent(in) :: omega
422 type(wsin_type) :: wsin
423 end function
424#endif
425
426#if RK2_ENABLED
427 PURE elemental module function constructWsin_RK2(omega) result(wsin)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK2
430#endif
431 use pm_kind, only: RKC => RK2
432 real(RKC) , intent(in) :: omega
433 type(wsin_type) :: wsin
434 end function
435#endif
436
437#if RK1_ENABLED
438 PURE elemental module function constructWsin_RK1(omega) result(wsin)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK1
441#endif
442 use pm_kind, only: RKC => RK1
443 real(RKC) , intent(in) :: omega
444 type(wsin_type) :: wsin
445 end function
446#endif
447
448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449
450 end interface
451
452!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453
497 type :: wcos_type
498 real(RKH) :: omega
499 end type
500
541 interface wcos_type
542
543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544
545#if RK5_ENABLED
546 PURE elemental module function constructWcos_RK5(omega) result(wcos)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK5
549#endif
550 use pm_kind, only: RKC => RK5
551 real(RKC) , intent(in) :: omega
552 type(wcos_type) :: wcos
553 end function
554#endif
555
556#if RK4_ENABLED
557 PURE elemental module function constructWcos_RK4(omega) result(wcos)
558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
559 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK4
560#endif
561 use pm_kind, only: RKC => RK4
562 real(RKC) , intent(in) :: omega
563 type(wcos_type) :: wcos
564 end function
565#endif
566
567#if RK3_ENABLED
568 PURE elemental module function constructWcos_RK3(omega) result(wcos)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK3
571#endif
572 use pm_kind, only: RKC => RK3
573 real(RKC) , intent(in) :: omega
574 type(wcos_type) :: wcos
575 end function
576#endif
577
578#if RK2_ENABLED
579 PURE elemental module function constructWcos_RK2(omega) result(wcos)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK2
582#endif
583 use pm_kind, only: RKC => RK2
584 real(RKC) , intent(in) :: omega
585 type(wcos_type) :: wcos
586 end function
587#endif
588
589#if RK1_ENABLED
590 PURE elemental module function constructWcos_RK1(omega) result(wcos)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK1
593#endif
594 use pm_kind, only: RKC => RK1
595 real(RKC) , intent(in) :: omega
596 type(wcos_type) :: wcos
597 end function
598#endif
599
600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601
602 end interface
603
604!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605
606 ! \cond excluded
646 type :: GK15_type
647 end type
648 ! \endcond excluded
649
676 type(GK15_type) , parameter :: GK15 = GK15_type()
677
678 ! \cond excluded
698 real(RKB) , parameter :: nodeG7(4) = &
699 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
700 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
701 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
702 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB ]
703
723 real(RKB) , parameter :: weightG7(4) = &
724 [ 4.1795918367346938775510204081632653061224489795918367346938775510204081632653061224489795918367346938775510204081633e-01_RKB &
725 , 3.8183005050511894495036977548897513387836508353386273475108345103070554643412970834868465934404480145031467176458536e-01_RKB &
726 , 2.7970539148927666790146777142377958248692506522659876453701403269361881043056267681324094290119761876632337521337205e-01_RKB &
727 , 1.2948496616886969327061143267908201832858740225994666397720863872465523497204230871562541816292084508948440200163443e-01_RKB ]
728
748 real(RKB) , parameter :: nodeK15(8) = &
749 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
750 , 2.0778495500789846760068940377324491347978440714517064971384573461986693844943520226910343227183698530560857645062738e-01_RKB &
751 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
752 , 5.8608723546769113029414483825872959843678075060436095130499289319880373607444407464511674498935942098956811555121368e-01_RKB &
753 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
754 , 8.6486442335976907278971278864092620121097230707408814860145771276706770813259572103585847859604590541475281326027862e-01_RKB &
755 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB &
756 , 9.9145537112081263920685469752632851664204433837033470129108741357244173934653407235924503509626841760744349505339308e-01_RKB ]
757
777 real(RKB) , parameter :: weightK15(8) = &
778 [ 2.0948214108472782801299917489171426369776208022370431671299800656137515132325648616816908211675949102392971459688215e-01_RKB &
779 , 2.0443294007529889241416199923464908471651760418071835742447095312045467698546598879348374292009347554167803659293064e-01_RKB &
780 , 1.9035057806478540991325640242101368282607807545535835588544088036744058072410212679605964605106377593834568683551139e-01_RKB &
781 , 1.6900472663926790282658342659855028410624490030294424149734006755695680921619029112936702403855359908156070095656537e-01_RKB &
782 , 1.4065325971552591874518959051023792039988975724799857556174546893312708093090950408097379122415555910759700350860143e-01_RKB &
783 , 1.0479001032225018383987632254151801744375665421383061189339065133963746321576289524167571627509311333949422518201492e-01_RKB &
784 , 6.3092092629978553290700663189204286665071157211550707113605545146983997477964874928199170264504441995865872491871943e-02_RKB &
785 , 2.2935322010529224963732008058969591993560811275746992267507430254711815787976075946156368168156289483493617134063245e-02_RKB ]
786 ! \endcond excluded
787
788!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
789
790 ! \cond excluded
830 type :: GK21_type
831 end type
832 ! \endcond excluded
833
861 type(GK21_type) , parameter :: GK21 = GK21_type()
862
863 ! \cond excluded
883 real(RKB) , parameter :: nodeG10(5) = &
884 [ 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
885 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
886 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
887 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
888 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB ]
889
909 real(RKB) , parameter :: weightG10(5) = &
910 [ 2.9552422471475287017389299465133832942104671702685360135430802975599593821715232927035659579375421672271716440125256e-01_RKB &
911 , 2.6926671930999635509122692156946935285975993846088379580056327624215343231917927676422663670925276075559581145036870e-01_RKB &
912 , 2.1908636251598204399553493422816319245877187052267708988095654363519991065295128124268399317720219278659121687281289e-01_RKB &
913 , 1.4945134915058059314577633965769733240255663966942736783547726875323865472663001094594726463473195191400575256104544e-01_RKB &
914 , 6.6671344308688137593568809893331792857864834320158145128694881613412064084087101776785509685058877821090054714520419e-02_RKB ]
915
935 real(RKB) , parameter :: nodeK21(11) = &
936 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
937 , 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
938 , 2.9439286270146019813112660310386556616268662515695791864888229172724611166332737888445523178268237359119185139299872e-01_RKB &
939 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
940 , 5.6275713466860468333900009927269414084301388194196695886034621458779266353216327549712087854169992422106448211158815e-01_RKB &
941 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
942 , 7.8081772658641689706371757834504237716340752029815717974694859999505607982761420654526977234238996241110129779403362e-01_RKB &
943 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
944 , 9.3015749135570822600120718005950834622516790998193924230349406866828415983091673055011194572851007884702013619684320e-01_RKB &
945 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB &
946 , 9.9565716302580808073552728068900284792126058721947892436337916111757023046774867357152325996912076724298149077812671e-01_RKB ]
947
967 real(RKB) , parameter :: weightK21(11) = &
968 [ 1.4944555400291690566493646838982120374523631668747280383560851873698964478511841925721030705689540264726493367634340e-01_RKB &
969 , 1.4773910490133849137484151597206804552373162548520660451819195439885993016735696405732703959182882254268727823258502e-01_RKB &
970 , 1.4277593857706008079709427313871706088597905653190555560741004743970770449909340027811131706283756428281146832304737e-01_RKB &
971 , 1.3470921731147332592805400177170683276099191300855971406636668491320291400121282036676953159488271772384389604997640e-01_RKB &
972 , 1.2349197626206585107795810983107415951230034952864832764467994120974054238975454689681538622363738230836484113389878e-01_RKB &
973 , 1.0938715880229764189921059032580496027181329983434522007819675829826550372891432168683899432674553842507906611591517e-01_RKB &
974 , 9.3125454583697605535065465083366344390018828880760031970085038760177735672200775237414123061615827474831165614953012e-02_RKB &
975 , 7.5039674810919952767043140916190009395219382000910088173697048048430404342858495178813808730646554086856929327903059e-02_RKB &
976 , 5.4755896574351996031381300244580176373721114058333557524432615804784098927818975325116301569003298086458722055550981e-02_RKB &
977 , 3.2558162307964727478818972459389760617388939845662609571537504232714121820165498692381607605384626494546068817765276e-02_RKB &
978 , 1.1694638867371874278064396062192048396217332481931888927598147525622222058064992651806736704969967250888097490233242e-02_RKB ]
979
980!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
981
982 ! \cond excluded
1022 type :: GK31_type
1023 end type
1024 ! \endcond excluded
1025
1053 type(GK31_type) , parameter :: GK31 = GK31_type()
1054
1074 real(RKB) , parameter :: nodeG15(8) = &
1075 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1076 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1077 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1078 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1079 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1080 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1081 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1082 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB ]
1083
1103 real(RKB) , parameter :: weightG15(8) = &
1104 [ 2.0257824192556127288062019996751931483866215800947735679670411605143539875474607409339344071278803213535148267082999e-01_RKB &
1105 , 1.9843148532711157645611832644383932481869255995754199348473792792912479753343426813331499916481782320766020854889310e-01_RKB &
1106 , 1.8616100001556221102680056186642282450622601227792840281549572731001325550269916061894976888609932360539977709001384e-01_RKB &
1107 , 1.6626920581699393355320086048120881113090018009841290732186519056355356321227851771070517429241553621484461540657185e-01_RKB &
1108 , 1.3957067792615431444780479451102832252085027531551124320239112863108844454190781168076825736357133363814908889327664e-01_RKB &
1109 , 1.0715922046717193501186954668586930341554371575810198068702238912187799485231579972568585713760862404439808767837506e-01_RKB &
1110 , 7.0366047488108124709267416450667338466708032754330719825907292914387055512874237044840452066693939219355489858595041e-02_RKB &
1111 , 3.0753241996117268354628393577204417721748144833434074264228285504237189467117168039038770732399404002516991188859473e-02_RKB ]
1112
1132 real(RKB) , parameter :: nodeK31(16) = &
1133 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1134 , 1.0114206691871749902707423144739233878745105740164180495800189504151097862454083050931321451540380998341273193681967e-01_RKB &
1135 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1136 , 2.9918000715316881216678002426638896266160338274382080184125545738918081102513884467602322020157243563662094470221235e-01_RKB &
1137 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1138 , 4.8508186364023968069365574023235061286633893089407312129367943604080239955167155974371848690848595275551258416303565e-01_RKB &
1139 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1140 , 6.5099674129741697053373589531327469254694822609259966708966160576093305841043840794460394747228060367236079289132544e-01_RKB &
1141 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1142 , 7.9041850144246593296764929481794734686214051995697617332365280643308302974631807059994738664225445530963711137343440e-01_RKB &
1143 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1144 , 8.9726453234408190088250965645449588283177871149442786763972687601078537721473771221195399661919716123038835639691946e-01_RKB &
1145 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1146 , 9.6773907567913913425734797878433722528335733730013163797468062226335804249452174804319385048203118506304424717089291e-01_RKB &
1147 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB &
1148 , 9.9800229869339706028517284015227120907340644231555723034839427970683348682837134566648979907760125278631896777136104e-01_RKB ]
1149
1169 real(RKB) , parameter :: weightK31(16) = &
1170 [ 1.0133000701479154901737479276749254677092627259659629246734858372174107615774696665932418050683956749891773195816338e-01_RKB &
1171 , 1.0076984552387559504494666261756972191634838013536373069278929029488122760822761077475060185965408326901925180106227e-01_RKB &
1172 , 9.9173598721791959332393173484603131059567260816713281734860095693651563064308745717056680128223790739026832596087552e-02_RKB &
1173 , 9.6642726983623678505179907627589335136656568630495198973407668882934392359962841826511402504664592185391687490319950e-02_RKB &
1174 , 9.3126598170825321225486872747345718561927881321317330560285879189052002874531855060114908990458716740695847509343865e-02_RKB &
1175 , 8.8564443056211770647275443693774303212266732690655967817996052574877144544749814260718837576325109922207832119243346e-02_RKB &
1176 , 8.3080502823133021038289247286103789601554188253368717607281604875233630643885056057630789228337088859687986285569521e-02_RKB &
1177 , 7.6849680757720378894432777482659006722109101167947000584089097112470821092034084418224731527690291913686588446455555e-02_RKB &
1178 , 6.9854121318728258709520077099147475786045435140671549698798093177992675624987998849748628778570667518643649536771245e-02_RKB &
1179 , 6.2009567800670640285139230960802932190400004210329723569147829395618376206272317333030584268303808639229575334680414e-02_RKB &
1180 , 5.3481524690928087265343147239430296771554760947116739813222888752727413616259625439714812475198987513183153639571249e-02_RKB &
1181 , 4.4589751324764876608227299373279690223256649667921096570980823211805450700059906366455036418897149593261561551176267e-02_RKB &
1182 , 3.5346360791375846222037948478360048122630678992420820868148023340902501837247680978434662724296810081131106317333086e-02_RKB &
1183 , 2.5460847326715320186874001019653359397271745046864640508377984982400903447009185267605205778819712848080691366407461e-02_RKB &
1184 , 1.5007947329316122538374763075807268094639436437387634979291759700896494746154334398961710227490402528151677469993935e-02_RKB &
1185 , 5.3774798729233489877920514301276498183080402431284197876486169536848635554354599213793172596490038991436925569025913e-03_RKB ]
1186 ! \endcond excluded
1187
1188!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1189
1190 ! \cond excluded
1230 type :: GK41_type
1231 end type
1232 ! \endcond excluded
1233
1261 type(GK41_type) , parameter :: GK41 = GK41_type()
1262
1263 ! \cond excluded
1283 real(RKB) , parameter :: nodeG20(10) = &
1284 [ 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1285 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1286 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1287 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1288 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1289 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1290 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1291 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1292 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1293 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB ]
1294
1314 real(RKB) , parameter :: weightG20(10) = &
1315 [ 1.5275338713072585069808433195509759349194864511237859727470104981759745316273778153557248783650390593544001842813788e-01_RKB &
1316 , 1.4917298647260374678782873700196943669267990408136831649621121780984442259558678069396132603521048105170913854567338e-01_RKB &
1317 , 1.4209610931838205132929832506716493303451541339202030333736708298382808749793436761694922428320058260133068573666201e-01_RKB &
1318 , 1.3168863844917662689849449974816313491611051114698352699643649370885435642948093314355797518397262924510598005463625e-01_RKB &
1319 , 1.1819453196151841731237737771138228700504121954896877544688995202017474835051151630572868782581901744606267543092317e-01_RKB &
1320 , 1.0193011981724043503675013548034987616669165602339255626197161619685232202539434647534931576947985821375859035525483e-01_RKB &
1321 , 8.3276741576704748724758143222046206100177828583163290744882060785693082894079419471375190843790839349096116111932764e-02_RKB &
1322 , 6.2672048334109063569506535187041606351601076578436364099584345437974811033665678644563766056832203512603253399592073e-02_RKB &
1323 , 4.0601429800386941331039952274932109879090639989951536817606854561832296750987328295538920623044384976189825709675075e-02_RKB &
1324 , 1.7614007139152118311861962351852816362143105543336732524349326677348419259621847817403105542146097668703716227512570e-02_RKB ]
1325
1345 real(RKB) , parameter :: nodeK41(21) = &
1346 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1347 , 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1348 , 1.5260546524092267550522024102267752791167622481841730660174156703809133685751696356987995886397049724808931527012542e-01_RKB &
1349 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1350 , 3.0162786811491300432055535685859226061539650501373092456926374427956957435978384116066498234762220215751079886015902e-01_RKB &
1351 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1352 , 4.4359317523872510319999221349264010784010101082300309613315028346299543059315258601993479156987847429893626854030516e-01_RKB &
1353 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1354 , 5.7514044681971031534294603658642513281381264014771682537415885495717468074720062012357788489049470208285175093670561e-01_RKB &
1355 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1356 , 6.9323765633475138480549071184593153338642585141021417904687378454301191710739219011546672416325022748282227809465165e-01_RKB &
1357 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1358 , 7.9504142883755119835063883327278794295938959911578029703855163894322697871710382866701777890251824617748545658564370e-01_RKB &
1359 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1360 , 8.7827681125228197607744299511307846671124526828251164853898086998248145904743220740840261624245683876748360309079747e-01_RKB &
1361 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1362 , 9.4082263383175475351998272221244338027429557377965291059536839973186796006557571220888218676776618448841584569497535e-01_RKB &
1363 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1364 , 9.8150787745025025919334299472021694456725093981023759869077533318793098857465723460898060491887511355706497739384103e-01_RKB &
1365 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB &
1366 , 9.9885903158827766383831557654586300999957020432629666866666860339324411793311982967839129772854179884971700274369367e-01_RKB ]
1367
1387 real(RKB) , parameter :: weightK41(21) = &
1388 [ 7.6600711917999656445049901530101740827932500628670118055485349620314721456712029449597396569857880493210849110825276e-02_RKB &
1389 , 7.6377867672080736705502835038061001800801036764945996714946431116936745542061941050008345047482501253320401746334511e-02_RKB &
1390 , 7.5704497684556674659542775376616558263363155900414326194855223272348838596099414841886740468379707283366777797425290e-02_RKB &
1391 , 7.4582875400499188986581418362487528616116493572092273080047040726969899567887364227664202642942357104526915332274625e-02_RKB &
1392 , 7.3030690332786667495189417658913112760626845234552742380174250771849743831660040966804802312464527721645765620253776e-02_RKB &
1393 , 7.1054423553444068305790361723210167412912159322210143921628270586407381879789525901086146473278095159807542174985045e-02_RKB &
1394 , 6.8648672928521619345623411885367801715489704958239860400434264173923806029589970941711224257967651039544669425313433e-02_RKB &
1395 , 6.5834597133618422111563556969397943147223506343381443709751749639944420314384296347503523810096842402960802728781816e-02_RKB &
1396 , 6.2653237554781168025870122174254980585819744698897886186553324157100424088919284503451596742588386343548162830898103e-02_RKB &
1397 , 5.9111400880639572374967220648594217136419365977042191748388047204015262840407696611508732839851952697839735487615776e-02_RKB &
1398 , 5.5195105348285994744832372419777329194753456228153116909812131213177827707884692917845453999535518818940813085110223e-02_RKB &
1399 , 5.0944573923728691932707670050344948664836365809262579747517140086119113476866735641054822574173198900379392130050979e-02_RKB &
1400 , 4.6434821867497674720231880926107516842127071007077929289994127933243222585938804392953931185146446072587020288747981e-02_RKB &
1401 , 4.1668873327973686263788305936894738043960843153010324860966353235271889596379726462208702081068715463576895020003842e-02_RKB &
1402 , 3.6600169758200798030557240707211008487453496747498001651070009441973280061489266074044986901436324295513243878212345e-02_RKB &
1403 , 3.1287306777032798958543119323800737887769280362813337359554598005322423266047996771926031069705049476071896145456496e-02_RKB &
1404 , 2.5882133604951158834505067096153142999479118048674944526997797755374306421629440393392427198869345793286369198147609e-02_RKB &
1405 , 2.0388373461266523598010231432754705122838627940185929365371868214433006532030353671253640300679157504987977281782909e-02_RKB &
1406 , 1.4626169256971252983787960308868356163881050162249770342103474631076960029748751959380482484308382288261238476948520e-02_RKB &
1407 , 8.6002698556429421986617879501023472521289227667077976622450602031426535362696437838448828009554532025301579670206091e-03_RKB &
1408 , 3.0735837185205315012182932460309874880335046882543449198461628212114333665590378156706265241414469306987988292234740e-03_RKB ]
1409 ! \endcond excluded
1410
1411!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1412
1413 ! \cond excluded
1453 type :: GK51_type
1454 end type
1455 ! \endcond excluded
1456
1484 type(GK51_type) , parameter :: GK51 = GK51_type()
1485
1486 ! \cond excluded
1506 real(RKB) , parameter :: nodeG25(13) = &
1507 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1508 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1509 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1510 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1511 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1512 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1513 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1514 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1515 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1516 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1517 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1518 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1519 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB ]
1520
1540 real(RKB) , parameter :: weightG25(13) = &
1541 [ 1.2317605372671545120390287307905014243823362751815166539135219731691200794926142128460112517504958377310054583945994e-01_RKB &
1542 , 1.2224244299031004168895951894585150583505924756305904090758008223203896721918010243033540891078906637115620156845304e-01_RKB &
1543 , 1.1945576353578477222817812651290104739017670141372642551958788133518409022018773502442869720975271321374348568426235e-01_RKB &
1544 , 1.1485825914571164833932554586955580864093619166818014959151499003148279667112542256534429898558156273250513652351744e-01_RKB &
1545 , 1.0851962447426365311609395705011661934007758798672201615649430734883929279360844269339768350029654172135832773427565e-01_RKB &
1546 , 1.0053594906705064420220689039268582698846609452814190706986904199941294815904602968195565620373258211755226681206658e-01_RKB &
1547 , 9.1028261982963649811497220702891653380992558959334310970483768967017384678410526902484398142953718885872521590850372e-02_RKB &
1548 , 8.0140700335001018013234959669111302290225732853675893716201462973612828934801289559457377714225318048243957479325813e-02_RKB &
1549 , 6.8038333812356917207187185656707968554709494354636562615071226410003654051711473106651522969481873733098761760660898e-02_RKB &
1550 , 5.4904695975835191925936891540473324160109985553111349048508498244593774678436511895711924079433444763756746828817613e-02_RKB &
1551 , 4.0939156701306312655623487711645953660845783364104346504698414899297432880215512770478971055110424130123527015425511e-02_RKB &
1552 , 2.6354986615032137261901815295299144935963281703322468755366165783870934008879499371529821528172928890350362464605104e-02_RKB &
1553 , 1.1393798501026287947902964113234773603320526292909696448948061116189891729766743355923677112945033505688431618009664e-02_RKB ]
1554
1574 real(RKB) , parameter :: nodeK51(26) = &
1575 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1576 , 6.1544483005685078886546392366796631281724348039823545274305431751687279361558658545141048781022691067898008423227288e-02_RKB &
1577 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1578 , 1.8371893942104889201596988875952841578528447834990555215034512653236752851109815617651867160645591242103823539931527e-01_RKB &
1579 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1580 , 3.0308953893110783016747890998033932920041937876655194685731578452573120372337209717349617882111662416355753711853559e-01_RKB &
1581 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1582 , 4.1788538219303774885181439459457248709336998140069528034955785068796932076966599548717224205109797297615032607570119e-01_RKB &
1583 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1584 , 5.2632528433471918259962377815801017803683252320191114313002425180471455022502695302371008520604638341970901082293650e-01_RKB &
1585 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1586 , 6.2681009901031741278812268162451788101954628995068510806525222008437260184181183053045236423845198752346149030569920e-01_RKB &
1587 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1588 , 7.1776640681308438818665407977329778059771167555515582423493486823991612820974965089522905953765860328116692570706602e-01_RKB &
1589 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1590 , 7.9787379799850005941041090499430656940863230009338267661706934499488650817643824077118950314443984031474353711531825e-01_RKB &
1591 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1592 , 8.6584706529327559544899696958834008820284409402823690293965213246691432948180280120756708738064779055576005302835351e-01_RKB &
1593 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1594 , 9.2074711528170156174634608454633063157457035996277199700642836501131385042631212407808952281702820179915510491592339e-01_RKB &
1595 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1596 , 9.6161498642584251241813003366016724169212642963709676666624520141292893281185666917636407790823210892689040877316178e-01_RKB &
1597 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1598 , 9.8803579453407724763733101457740622707248415209160748131449972199405186821347293686245404742032360498210710718706868e-01_RKB &
1599 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB &
1600 , 9.9926210499260983419345748654034059370452496042279618586228697762904524428167719073818746102238075978747461480736921e-01_RKB ]
1601
1621 real(RKB) , parameter :: weightK51(26) = &
1622 [ 6.1580818067832935078759824240064553190436936903140808056908996403358367244202623293256774502185186717703954810463664e-02_RKB &
1623 , 6.1471189871425316661544131965264177586537962876885022711111683500151700796198726558483367566537422877227096643444043e-02_RKB &
1624 , 6.1128509717053048305859030416292711922678552321960938357322028070390133769952032831204895569347757809858568165047769e-02_RKB &
1625 , 6.0539455376045862945360267517565427162312365710457079923487043144554747810689514408013582515489930908693681447570811e-02_RKB &
1626 , 5.9720340324174059979099291932561853835363045476189975483372207816149988460708299020779612375010639778624011960832019e-02_RKB &
1627 , 5.8689680022394207961974175856787764139795646254828315293243700305012569486054157617049685031506591863121580010947248e-02_RKB &
1628 , 5.7437116361567832853582693939506471994832856823896682976509412313367495727224381199978598247737089593472710899482737e-02_RKB &
1629 , 5.5950811220412317308240686382747346820271035112771802428932791066115158268338607019365831655460314732208940609352540e-02_RKB &
1630 , 5.4251129888545490144543370459875606826076838441263383072163293312936923476650934130242315028422047795830492882862973e-02_RKB &
1631 , 5.2362885806407475864366712137872714887351550723707596350905793656046659248541276597504566497990926306481919129870507e-02_RKB &
1632 , 5.0277679080715671963325259433440084440587630604775975142050968279743014641141402310302584542633557037153607386127936e-02_RKB &
1633 , 4.7982537138836713906392255756914754983592207423271169651235865196757913880334117810235517477328110033499422471098658e-02_RKB &
1634 , 4.5502913049921788909870584752660393043707768935695327316724254392794299567957035458208970599641697203261236226745020e-02_RKB &
1635 , 4.2872845020170049476895792439495161101999504199883328877919242515738957655253932048951366960802592343905647433925806e-02_RKB &
1636 , 4.0083825504032382074839284467075646401410549266591308713115878386835777315058451955614116158949614066927183232852042e-02_RKB &
1637 , 3.7116271483415543560330625367619875995997802688047764805628702762773009669395760582294525748583875707140577080663373e-02_RKB &
1638 , 3.4002130274329337836748795229551203225670528250050443083264193121524339063344855010257660547708022429300203676502386e-02_RKB &
1639 , 3.0792300167387488891109020215228585600877162393292487644544830559965388047996492709248618249084851477787538356572832e-02_RKB &
1640 , 2.7475317587851737802948455517811078614796013288710603199613621069727810352835469926107822047433566792405123805901196e-02_RKB &
1641 , 2.4009945606953216220092489164881081392931528209659330290734972342536012282191913069778658241972047765300060007037359e-02_RKB &
1642 , 2.0435371145882835456568292235938973678758006097668937220074531550163622566841885855957623103354443247806459277197725e-02_RKB &
1643 , 1.6847817709128298231516667536336315840402654624706139411175769276842182270078960078544597372646532637619276509222462e-02_RKB &
1644 , 1.3236229195571674813656405846976238077578084997863654732213860488560614587634395544002156258192582265590155862296710e-02_RKB &
1645 , 9.4739733861741516072077105236553238716453268483726334971394029603529306140359023187904705754719643032594360138998941e-03_RKB &
1646 , 5.5619321353567137580402369010655220701769295496290984052961210793810038857581724171021610100708799763006942755331129e-03_RKB &
1647 , 1.9873838923303159265078518828434098894299804282505973837653346298985629336820118753523093675303476883723992297810124e-03_RKB ]
1648 ! \endcond excluded
1649
1650!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1651
1652 ! \cond excluded
1692 type :: GK61_type
1693 end type
1694 ! \endcond excluded
1695
1723 type(GK61_type) , parameter :: GK61 = GK61_type()
1724
1725 ! \cond excluded
1745 real(RKB) , parameter :: nodeG30(15) = &
1746 [ 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1747 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1748 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1749 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1750 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1751 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1752 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1753 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1754 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1755 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1756 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1757 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1758 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1759 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1760 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB ]
1761
1781 real(RKB) , parameter :: weightG30(15) = &
1782 [ 1.0285265289355884034128563670541504386837555706492822258631898667601623865660942939262884632188870916503815852709086e-01_RKB &
1783 , 1.0176238974840550459642895216855404463270628948712684086426094541964251360531767494547599781978391198881693385887696e-01_RKB &
1784 , 9.9593420586795267062780282103569476529869263666704277221365146183946660389908809018092299289324184705373523229592037e-02_RKB &
1785 , 9.6368737174644259639468626351809865096406461430160245912994275732837534742003123724951247818104195363343093583583429e-02_RKB &
1786 , 9.2122522237786128717632707087618767196913234418234107527675047001973047070094168298464052916811907158954949394100501e-02_RKB &
1787 , 8.6899787201082979802387530715125702576753328743545344012222129882153582254261494247955033509639105330215477601953921e-02_RKB &
1788 , 8.0755895229420215354694938460529730875892803708439299890258593706051180567026345604212402769217808080749416147400962e-02_RKB &
1789 , 7.3755974737705206268243850022190734153770526037049438941269182374599399314635211710401352716638183270192254236882630e-02_RKB &
1790 , 6.5974229882180495128128515115962361237442953656660378967031516042143672466094179365819913911598737439478205808271237e-02_RKB &
1791 , 5.7493156217619066481721689402056128797120670721763134548715799003232147409954376925211999650950125355559974348279846e-02_RKB &
1792 , 4.8402672830594052902938140422807517815271809197372736345191936791805425677102152797767439563562263454374645955072007e-02_RKB &
1793 , 3.8799192569627049596801936446347692033200976766395352107732789705946970952769793919055026279035105656340228558382274e-02_RKB &
1794 , 2.8784707883323369349719179611292043639588894546287496474180122608145988940013933101730206711484171554940392262251283e-02_RKB &
1795 , 1.8466468311090959142302131912047269096206533968181403371298365514585599521307973654080519029675417955638095832046164e-02_RKB &
1796 , 7.9681924961666056154658834746736224504806965871517212294851633569200384329013332941536616922861735209846506562158817e-03_RKB ]
1797
1798
1818 real(RKB) , parameter :: nodeK61(31) = &
1819 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1820 , 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1821 , 1.0280693796673703014709675131800059247190133296515840552101946914632788253917872738234797140786490207720254922664913e-01_RKB &
1822 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1823 , 2.0452511668230989143895767100202470952410426459556377447604465028350321894663245495592565235317147819577892124850607e-01_RKB &
1824 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1825 , 3.0407320227362507737267710719925655353115778980946272844421536998312150442387767304001423699909778588529370119457430e-01_RKB &
1826 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1827 , 4.0040125483039439253547621154266063361104593297078395983186610656429170689311759061175527015710247383961903284673474e-01_RKB &
1828 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1829 , 4.9248046786177857499369306120770879564426564096318697026073340982988422546396352776837047452262025983265531109327026e-01_RKB &
1830 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1831 , 5.7934523582636169175602493217254049590705158881215289208126016612312833567812241903809970751783808208940322061083509e-01_RKB &
1832 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1833 , 6.6006106412662696137005366814927075303835037480883390955067197339904937499734522076788020517029688190998858739703079e-01_RKB &
1834 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1835 , 7.3379006245322680472617113136952764566938172775468549208701399518300016463613325382024664531597318795933262446521430e-01_RKB &
1836 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1837 , 7.9972783582183908301366894232268324073569842937778450923647349548686662567326007229195202524185356472023967927713548e-01_RKB &
1838 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1839 , 8.5720523354606109895865851065894385682080017062359612850504551739119887225712932688031120704657195642614071367390794e-01_RKB &
1840 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1841 , 9.0557330769990779854652255892595831956897536366222841356404766397803760239449631913585074426842574155323901785046522e-01_RKB &
1842 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1843 , 9.4437444474855997941583132403743912158564371496498093181748940139520917000657342753448871376849848523800667868447591e-01_RKB &
1844 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1845 , 9.7311632250112626837469386842370688488763796428343933853755850185624118958166838288308561708261486365954975485787212e-01_RKB &
1846 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1847 , 9.9163099687040459485862836610948572485050033374616325510019923349807489603260796605556191495843575227494654783755353e-01_RKB &
1848 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB &
1849 , 9.9948441005049063757132589570581081946887394701850801923632642830748016674843587830656468823145435723317885056396548e-01_RKB ]
1850
1870 real(RKB) , parameter :: weightK61(31) = &
1871 [ 5.1494729429451567558340433647099307532736880396464168074637323362474083844397567724480716864880173808112573901197920e-02_RKB &
1872 , 5.1426128537459025933862879215781259829552034862395987263855824172761589259406892072066110681184224608133314131500422e-02_RKB &
1873 , 5.1221547849258772170656282604944208251146952425246327553509056805511015401279553971190412722969308620984161625812560e-02_RKB &
1874 , 5.0881795898749606492297473049804691853384914260919239920771942080972542646780575571132056254070929858650733836163479e-02_RKB &
1875 , 5.0405921402782346840893085653585028902197018251622233664243959211066713308635283713447747907973700791599900911248852e-02_RKB &
1876 , 4.9795683427074206357811569379942328539209602813696108951047392842948482646220377655098341924089250200477846596263918e-02_RKB &
1877 , 4.9055434555029778887528165367238173605887405295296569579490717901328215644590555247522873065246297467067324397612445e-02_RKB &
1878 , 4.8185861757087129140779492298304592605799236108429800057373350872433793583969368428942672063270298939865425225579922e-02_RKB &
1879 , 4.7185546569299153945261478181099486482884807300628457194141861551725533289490897029020276525603515502104799540544222e-02_RKB &
1880 , 4.6059238271006988116271735559373580594692875571824924004732379492293604006446052672252973438978639166425766841417488e-02_RKB &
1881 , 4.4814800133162663192355551616723243757431392796373009889680201194063503947907899189061064792111919040540351834527742e-02_RKB &
1882 , 4.3452539701356069316831728117073258074603308631703168064888805495738640839573863333942084117196541456054957383622173e-02_RKB &
1883 , 4.1969810215164246147147541285969757790088656718992374820388720323852655511200365790379948462006156953358103259681948e-02_RKB &
1884 , 4.0374538951535959111995279752468114216126062126030255633998289613810846761059740961836828802959573901107306640876603e-02_RKB &
1885 , 3.8678945624727592950348651532281050250923629821553846790376130679337402056620700554139109487533759557982632153728099e-02_RKB &
1886 , 3.6882364651821229223911065617135967736955164781030337670005198584196134970154169862584193360751243227989492571664973e-02_RKB &
1887 , 3.4979338028060024137499670731467875097226912794818719972208457232177786702008744219498470603846784465175225933802357e-02_RKB &
1888 , 3.2981447057483726031814191016853927510599291213858385714519347641452316582381008804994515341969205985818543200837577e-02_RKB &
1889 , 3.0907257562387762472884252943092272635270458523807153426840486964022086189874056947717446328187131273807982629114591e-02_RKB &
1890 , 2.8754048765041292843978785354334211144679160542074930035102280759132174815469834227854660515366003136772757344886331e-02_RKB &
1891 , 2.6509954882333101610601709335075414366517579522748565770867438338472138903658077617652522759934474895733739329287706e-02_RKB &
1892 , 2.4191162078080601365686370725232026760391377828182462432228943562944885267501070688006470962871743661192935455117297e-02_RKB &
1893 , 2.1828035821609192297167485738338993401507296056834912773630422358720439403382559079356058602393879803560534375378340e-02_RKB &
1894 , 1.9414141193942381173408951050128455851421014191431525770276066536497179079025540486072726114628763606440143557769099e-02_RKB &
1895 , 1.6920889189053272627572289420322092368566703783835191139883410840546679978551861043620089451681146020853650713611444e-02_RKB &
1896 , 1.4369729507045804812451432443580010195841899895001505873565899403000198662495821906144274682894222591414503342336172e-02_RKB &
1897 , 1.1823015253496341742232898853250592896264406250607818326302431548265365155855182739401700032519141448997853772603766e-02_RKB &
1898 , 9.2732796595177634284411468920243604212700249381931076964956469143626665557434385492325784596343112153704094886248672e-03_RKB &
1899 , 6.6307039159312921733198263697501681336283882177812585973955597357837568277731921327731815844512598157843672104469554e-03_RKB &
1900 , 3.8904611270998840512672018445155032785151429848864649214200101281144733676455451061226273655941038347210163533085954e-03_RKB &
1901 , 1.3890136986770076245515912267596996810488412919632724534411055332301367130989865366956251556423820479579333920310978e-03_RKB ]
1902 ! \endcond excluded
1903
1904!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1905
1969 interface setNodeWeightGK
1970
1971 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1972
1973#if RK5_ENABLED
1974 PURE module subroutine setNodeWeightGKFixed_RK5(nodeK, weightK, weightG)
1975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1976 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK5
1977#endif
1978 use pm_kind, only: RKC => RK5
1979 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
1980 end subroutine
1981#endif
1982
1983#if RK4_ENABLED
1984 PURE module subroutine setNodeWeightGKFixed_RK4(nodeK, weightK, weightG)
1985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1986 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK4
1987#endif
1988 use pm_kind, only: RKC => RK4
1989 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
1990 end subroutine
1991#endif
1992
1993#if RK3_ENABLED
1994 PURE module subroutine setNodeWeightGKFixed_RK3(nodeK, weightK, weightG)
1995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1996 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK3
1997#endif
1998 use pm_kind, only: RKC => RK3
1999 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2000 end subroutine
2001#endif
2002
2003#if RK2_ENABLED
2004 PURE module subroutine setNodeWeightGKFixed_RK2(nodeK, weightK, weightG)
2005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2006 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK2
2007#endif
2008 use pm_kind, only: RKC => RK2
2009 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2010 end subroutine
2011#endif
2012
2013#if RK1_ENABLED
2014 PURE module subroutine setNodeWeightGKFixed_RK1(nodeK, weightK, weightG)
2015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2016 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK1
2017#endif
2018 use pm_kind, only: RKC => RK1
2019 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2020 end subroutine
2021#endif
2022
2023 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2024
2025#if RK5_ENABLED
2026 PURE module subroutine setNodeWeightGKAlloc_RK5(order, nodeK, weightK, weightG)
2027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2028 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK5
2029#endif
2030 use pm_kind, only: RKC => RK5
2031 integer(IK) , intent(in) :: order
2032 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2033 end subroutine
2034#endif
2035
2036#if RK4_ENABLED
2037 PURE module subroutine setNodeWeightGKAlloc_RK4(order, nodeK, weightK, weightG)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK4
2040#endif
2041 use pm_kind, only: RKC => RK4
2042 integer(IK) , intent(in) :: order
2043 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2044 end subroutine
2045#endif
2046
2047#if RK3_ENABLED
2048 PURE module subroutine setNodeWeightGKAlloc_RK3(order, nodeK, weightK, weightG)
2049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2050 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK3
2051#endif
2052 use pm_kind, only: RKC => RK3
2053 integer(IK) , intent(in) :: order
2054 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2055 end subroutine
2056#endif
2057
2058#if RK2_ENABLED
2059 PURE module subroutine setNodeWeightGKAlloc_RK2(order, nodeK, weightK, weightG)
2060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2061 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK2
2062#endif
2063 use pm_kind, only: RKC => RK2
2064 integer(IK) , intent(in) :: order
2065 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2066 end subroutine
2067#endif
2068
2069#if RK1_ENABLED
2070 PURE module subroutine setNodeWeightGKAlloc_RK1(order, nodeK, weightK, weightG)
2071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2072 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK1
2073#endif
2074 use pm_kind, only: RKC => RK1
2075 integer(IK) , intent(in) :: order
2076 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2077 end subroutine
2078#endif
2079
2080 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2081
2082 end interface
2083
2084!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2085
2086 ! Naming convention: getQuadGKDFU, getQuadGKDPU, getQuadGKDNU, getQuadGKDBU
2087 ! G: Gauss rule,
2088 ! K: Kronrod rule,
2089 ! D: default method,
2090 ! F: finite integration limits,
2091 ! P: Positive integration limit,
2092 ! N: Negative integration limit,
2093 ! B: Both negative and positive integration limits,
2094
2202
2203 ! GK15
2204
2205 interface getQuadGK
2206
2207 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2208
2209#if RK5_ENABLED
2210 module function getQuadGK15_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2212 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK5
2213#endif
2214 use pm_kind, only: RKC => RK5
2215 procedure(real(RKC)) :: getFunc
2216 real(RKC) , intent(in) :: lb
2217 real(RKC) , intent(in) :: ub
2218 type(GK15_type) , intent(in) :: qrule
2219 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2220 real(RKC) :: quadGK
2221 end function
2222#endif
2223
2224#if RK4_ENABLED
2225 module function getQuadGK15_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2227 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK4
2228#endif
2229 use pm_kind, only: RKC => RK4
2230 procedure(real(RKC)) :: getFunc
2231 real(RKC) , intent(in) :: lb
2232 real(RKC) , intent(in) :: ub
2233 type(GK15_type) , intent(in) :: qrule
2234 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2235 real(RKC) :: quadGK
2236 end function
2237#endif
2238
2239#if RK3_ENABLED
2240 module function getQuadGK15_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2242 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK3
2243#endif
2244 use pm_kind, only: RKC => RK3
2245 procedure(real(RKC)) :: getFunc
2246 real(RKC) , intent(in) :: lb
2247 real(RKC) , intent(in) :: ub
2248 type(GK15_type) , intent(in) :: qrule
2249 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2250 real(RKC) :: quadGK
2251 end function
2252#endif
2253
2254#if RK2_ENABLED
2255 module function getQuadGK15_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2257 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK2
2258#endif
2259 use pm_kind, only: RKC => RK2
2260 procedure(real(RKC)) :: getFunc
2261 real(RKC) , intent(in) :: lb
2262 real(RKC) , intent(in) :: ub
2263 type(GK15_type) , intent(in) :: qrule
2264 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2265 real(RKC) :: quadGK
2266 end function
2267#endif
2268
2269#if RK1_ENABLED
2270 module function getQuadGK15_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2272 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK1
2273#endif
2274 use pm_kind, only: RKC => RK1
2275 procedure(real(RKC)) :: getFunc
2276 real(RKC) , intent(in) :: lb
2277 real(RKC) , intent(in) :: ub
2278 type(GK15_type) , intent(in) :: qrule
2279 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2280 real(RKC) :: quadGK
2281 end function
2282#endif
2283
2284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2285
2286#if RK5_ENABLED
2287 module function getQuadGK15_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2289 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK5
2290#endif
2291 use pm_kind, only: RKC => RK5
2292 procedure(real(RKC)) :: getFunc
2293 real(RKC) , intent(in) :: lb
2294 type(pinf_type) , intent(in) :: ub
2295 type(GK15_type) , intent(in) :: qrule
2296 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2297 real(RKC) :: quadGK
2298 end function
2299#endif
2300
2301#if RK4_ENABLED
2302 module function getQuadGK15_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2304 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK4
2305#endif
2306 use pm_kind, only: RKC => RK4
2307 procedure(real(RKC)) :: getFunc
2308 real(RKC) , intent(in) :: lb
2309 type(pinf_type) , intent(in) :: ub
2310 type(GK15_type) , intent(in) :: qrule
2311 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2312 real(RKC) :: quadGK
2313 end function
2314#endif
2315
2316#if RK3_ENABLED
2317 module function getQuadGK15_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2319 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK3
2320#endif
2321 use pm_kind, only: RKC => RK3
2322 procedure(real(RKC)) :: getFunc
2323 real(RKC) , intent(in) :: lb
2324 type(pinf_type) , intent(in) :: ub
2325 type(GK15_type) , intent(in) :: qrule
2326 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2327 real(RKC) :: quadGK
2328 end function
2329#endif
2330
2331#if RK2_ENABLED
2332 module function getQuadGK15_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2334 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK2
2335#endif
2336 use pm_kind, only: RKC => RK2
2337 procedure(real(RKC)) :: getFunc
2338 real(RKC) , intent(in) :: lb
2339 type(pinf_type) , intent(in) :: ub
2340 type(GK15_type) , intent(in) :: qrule
2341 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2342 real(RKC) :: quadGK
2343 end function
2344#endif
2345
2346#if RK1_ENABLED
2347 module function getQuadGK15_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2349 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK1
2350#endif
2351 use pm_kind, only: RKC => RK1
2352 procedure(real(RKC)) :: getFunc
2353 real(RKC) , intent(in) :: lb
2354 type(pinf_type) , intent(in) :: ub
2355 type(GK15_type) , intent(in) :: qrule
2356 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2357 real(RKC) :: quadGK
2358 end function
2359#endif
2360
2361 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2362
2363#if RK5_ENABLED
2364 module function getQuadGK15_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2366 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK5
2367#endif
2368 use pm_kind, only: RKC => RK5
2369 procedure(real(RKC)) :: getFunc
2370 type(ninf_type) , intent(in) :: lb
2371 real(RKC) , intent(in) :: ub
2372 type(GK15_type) , intent(in) :: qrule
2373 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2374 real(RKC) :: quadGK
2375 end function
2376#endif
2377
2378#if RK4_ENABLED
2379 module function getQuadGK15_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2381 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK4
2382#endif
2383 use pm_kind, only: RKC => RK4
2384 procedure(real(RKC)) :: getFunc
2385 type(ninf_type) , intent(in) :: lb
2386 real(RKC) , intent(in) :: ub
2387 type(GK15_type) , intent(in) :: qrule
2388 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2389 real(RKC) :: quadGK
2390 end function
2391#endif
2392
2393#if RK3_ENABLED
2394 module function getQuadGK15_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2396 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK3
2397#endif
2398 use pm_kind, only: RKC => RK3
2399 procedure(real(RKC)) :: getFunc
2400 type(ninf_type) , intent(in) :: lb
2401 real(RKC) , intent(in) :: ub
2402 type(GK15_type) , intent(in) :: qrule
2403 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2404 real(RKC) :: quadGK
2405 end function
2406#endif
2407
2408#if RK2_ENABLED
2409 module function getQuadGK15_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2411 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK2
2412#endif
2413 use pm_kind, only: RKC => RK2
2414 procedure(real(RKC)) :: getFunc
2415 type(ninf_type) , intent(in) :: lb
2416 real(RKC) , intent(in) :: ub
2417 type(GK15_type) , intent(in) :: qrule
2418 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2419 real(RKC) :: quadGK
2420 end function
2421#endif
2422
2423#if RK1_ENABLED
2424 module function getQuadGK15_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2426 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK1
2427#endif
2428 use pm_kind, only: RKC => RK1
2429 procedure(real(RKC)) :: getFunc
2430 type(ninf_type) , intent(in) :: lb
2431 real(RKC) , intent(in) :: ub
2432 type(GK15_type) , intent(in) :: qrule
2433 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2434 real(RKC) :: quadGK
2435 end function
2436#endif
2437
2438 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2439
2440#if RK5_ENABLED
2441 module function getQuadGK15_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2443 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK5
2444#endif
2445 use pm_kind, only: RKC => RK5
2446 procedure(real(RKC)) :: getFunc
2447 type(ninf_type) , intent(in) :: lb
2448 type(pinf_type) , intent(in) :: ub
2449 type(GK15_type) , intent(in) :: qrule
2450 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2451 real(RKC) :: quadGK
2452 end function
2453#endif
2454
2455#if RK4_ENABLED
2456 module function getQuadGK15_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2458 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK4
2459#endif
2460 use pm_kind, only: RKC => RK4
2461 procedure(real(RKC)) :: getFunc
2462 type(ninf_type) , intent(in) :: lb
2463 type(pinf_type) , intent(in) :: ub
2464 type(GK15_type) , intent(in) :: qrule
2465 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2466 real(RKC) :: quadGK
2467 end function
2468#endif
2469
2470#if RK3_ENABLED
2471 module function getQuadGK15_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2473 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK3
2474#endif
2475 use pm_kind, only: RKC => RK3
2476 procedure(real(RKC)) :: getFunc
2477 type(ninf_type) , intent(in) :: lb
2478 type(pinf_type) , intent(in) :: ub
2479 type(GK15_type) , intent(in) :: qrule
2480 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2481 real(RKC) :: quadGK
2482 end function
2483#endif
2484
2485#if RK2_ENABLED
2486 module function getQuadGK15_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2488 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK2
2489#endif
2490 use pm_kind, only: RKC => RK2
2491 procedure(real(RKC)) :: getFunc
2492 type(ninf_type) , intent(in) :: lb
2493 type(pinf_type) , intent(in) :: ub
2494 type(GK15_type) , intent(in) :: qrule
2495 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2496 real(RKC) :: quadGK
2497 end function
2498#endif
2499
2500#if RK1_ENABLED
2501 module function getQuadGK15_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2503 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK1
2504#endif
2505 use pm_kind, only: RKC => RK1
2506 procedure(real(RKC)) :: getFunc
2507 type(ninf_type) , intent(in) :: lb
2508 type(pinf_type) , intent(in) :: ub
2509 type(GK15_type) , intent(in) :: qrule
2510 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2511 real(RKC) :: quadGK
2512 end function
2513#endif
2514
2515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2516
2517 end interface
2518
2519 ! GK21
2520
2521 interface getQuadGK
2522
2523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2524
2525#if RK5_ENABLED
2526 module function getQuadGK21_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2528 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK5
2529#endif
2530 use pm_kind, only: RKC => RK5
2531 procedure(real(RKC)) :: getFunc
2532 real(RKC) , intent(in) :: lb
2533 real(RKC) , intent(in) :: ub
2534 type(GK21_type) , intent(in) :: qrule
2535 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2536 real(RKC) :: quadGK
2537 end function
2538#endif
2539
2540#if RK4_ENABLED
2541 module function getQuadGK21_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2543 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK4
2544#endif
2545 use pm_kind, only: RKC => RK4
2546 procedure(real(RKC)) :: getFunc
2547 real(RKC) , intent(in) :: lb
2548 real(RKC) , intent(in) :: ub
2549 type(GK21_type) , intent(in) :: qrule
2550 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2551 real(RKC) :: quadGK
2552 end function
2553#endif
2554
2555#if RK3_ENABLED
2556 module function getQuadGK21_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2558 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK3
2559#endif
2560 use pm_kind, only: RKC => RK3
2561 procedure(real(RKC)) :: getFunc
2562 real(RKC) , intent(in) :: lb
2563 real(RKC) , intent(in) :: ub
2564 type(GK21_type) , intent(in) :: qrule
2565 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2566 real(RKC) :: quadGK
2567 end function
2568#endif
2569
2570#if RK2_ENABLED
2571 module function getQuadGK21_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2573 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK2
2574#endif
2575 use pm_kind, only: RKC => RK2
2576 procedure(real(RKC)) :: getFunc
2577 real(RKC) , intent(in) :: lb
2578 real(RKC) , intent(in) :: ub
2579 type(GK21_type) , intent(in) :: qrule
2580 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2581 real(RKC) :: quadGK
2582 end function
2583#endif
2584
2585#if RK1_ENABLED
2586 module function getQuadGK21_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2588 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK1
2589#endif
2590 use pm_kind, only: RKC => RK1
2591 procedure(real(RKC)) :: getFunc
2592 real(RKC) , intent(in) :: lb
2593 real(RKC) , intent(in) :: ub
2594 type(GK21_type) , intent(in) :: qrule
2595 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2596 real(RKC) :: quadGK
2597 end function
2598#endif
2599
2600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2601
2602#if RK5_ENABLED
2603 module function getQuadGK21_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2605 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK5
2606#endif
2607 use pm_kind, only: RKC => RK5
2608 procedure(real(RKC)) :: getFunc
2609 real(RKC) , intent(in) :: lb
2610 type(pinf_type) , intent(in) :: ub
2611 type(GK21_type) , intent(in) :: qrule
2612 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2613 real(RKC) :: quadGK
2614 end function
2615#endif
2616
2617#if RK4_ENABLED
2618 module function getQuadGK21_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2620 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK4
2621#endif
2622 use pm_kind, only: RKC => RK4
2623 procedure(real(RKC)) :: getFunc
2624 real(RKC) , intent(in) :: lb
2625 type(pinf_type) , intent(in) :: ub
2626 type(GK21_type) , intent(in) :: qrule
2627 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2628 real(RKC) :: quadGK
2629 end function
2630#endif
2631
2632#if RK3_ENABLED
2633 module function getQuadGK21_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2635 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK3
2636#endif
2637 use pm_kind, only: RKC => RK3
2638 procedure(real(RKC)) :: getFunc
2639 real(RKC) , intent(in) :: lb
2640 type(pinf_type) , intent(in) :: ub
2641 type(GK21_type) , intent(in) :: qrule
2642 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2643 real(RKC) :: quadGK
2644 end function
2645#endif
2646
2647#if RK2_ENABLED
2648 module function getQuadGK21_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2650 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK2
2651#endif
2652 use pm_kind, only: RKC => RK2
2653 procedure(real(RKC)) :: getFunc
2654 real(RKC) , intent(in) :: lb
2655 type(pinf_type) , intent(in) :: ub
2656 type(GK21_type) , intent(in) :: qrule
2657 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2658 real(RKC) :: quadGK
2659 end function
2660#endif
2661
2662#if RK1_ENABLED
2663 module function getQuadGK21_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2665 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK1
2666#endif
2667 use pm_kind, only: RKC => RK1
2668 procedure(real(RKC)) :: getFunc
2669 real(RKC) , intent(in) :: lb
2670 type(pinf_type) , intent(in) :: ub
2671 type(GK21_type) , intent(in) :: qrule
2672 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2673 real(RKC) :: quadGK
2674 end function
2675#endif
2676
2677 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2678
2679#if RK5_ENABLED
2680 module function getQuadGK21_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2682 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK5
2683#endif
2684 use pm_kind, only: RKC => RK5
2685 procedure(real(RKC)) :: getFunc
2686 type(ninf_type) , intent(in) :: lb
2687 real(RKC) , intent(in) :: ub
2688 type(GK21_type) , intent(in) :: qrule
2689 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2690 real(RKC) :: quadGK
2691 end function
2692#endif
2693
2694#if RK4_ENABLED
2695 module function getQuadGK21_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2697 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK4
2698#endif
2699 use pm_kind, only: RKC => RK4
2700 procedure(real(RKC)) :: getFunc
2701 type(ninf_type) , intent(in) :: lb
2702 real(RKC) , intent(in) :: ub
2703 type(GK21_type) , intent(in) :: qrule
2704 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2705 real(RKC) :: quadGK
2706 end function
2707#endif
2708
2709#if RK3_ENABLED
2710 module function getQuadGK21_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2712 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK3
2713#endif
2714 use pm_kind, only: RKC => RK3
2715 procedure(real(RKC)) :: getFunc
2716 type(ninf_type) , intent(in) :: lb
2717 real(RKC) , intent(in) :: ub
2718 type(GK21_type) , intent(in) :: qrule
2719 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2720 real(RKC) :: quadGK
2721 end function
2722#endif
2723
2724#if RK2_ENABLED
2725 module function getQuadGK21_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2727 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK2
2728#endif
2729 use pm_kind, only: RKC => RK2
2730 procedure(real(RKC)) :: getFunc
2731 type(ninf_type) , intent(in) :: lb
2732 real(RKC) , intent(in) :: ub
2733 type(GK21_type) , intent(in) :: qrule
2734 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2735 real(RKC) :: quadGK
2736 end function
2737#endif
2738
2739#if RK1_ENABLED
2740 module function getQuadGK21_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2742 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK1
2743#endif
2744 use pm_kind, only: RKC => RK1
2745 procedure(real(RKC)) :: getFunc
2746 type(ninf_type) , intent(in) :: lb
2747 real(RKC) , intent(in) :: ub
2748 type(GK21_type) , intent(in) :: qrule
2749 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2750 real(RKC) :: quadGK
2751 end function
2752#endif
2753
2754 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2755
2756#if RK5_ENABLED
2757 module function getQuadGK21_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2759 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK5
2760#endif
2761 use pm_kind, only: RKC => RK5
2762 procedure(real(RKC)) :: getFunc
2763 type(ninf_type) , intent(in) :: lb
2764 type(pinf_type) , intent(in) :: ub
2765 type(GK21_type) , intent(in) :: qrule
2766 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2767 real(RKC) :: quadGK
2768 end function
2769#endif
2770
2771#if RK4_ENABLED
2772 module function getQuadGK21_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2774 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK4
2775#endif
2776 use pm_kind, only: RKC => RK4
2777 procedure(real(RKC)) :: getFunc
2778 type(ninf_type) , intent(in) :: lb
2779 type(pinf_type) , intent(in) :: ub
2780 type(GK21_type) , intent(in) :: qrule
2781 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2782 real(RKC) :: quadGK
2783 end function
2784#endif
2785
2786#if RK3_ENABLED
2787 module function getQuadGK21_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2789 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK3
2790#endif
2791 use pm_kind, only: RKC => RK3
2792 procedure(real(RKC)) :: getFunc
2793 type(ninf_type) , intent(in) :: lb
2794 type(pinf_type) , intent(in) :: ub
2795 type(GK21_type) , intent(in) :: qrule
2796 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2797 real(RKC) :: quadGK
2798 end function
2799#endif
2800
2801#if RK2_ENABLED
2802 module function getQuadGK21_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2804 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK2
2805#endif
2806 use pm_kind, only: RKC => RK2
2807 procedure(real(RKC)) :: getFunc
2808 type(ninf_type) , intent(in) :: lb
2809 type(pinf_type) , intent(in) :: ub
2810 type(GK21_type) , intent(in) :: qrule
2811 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2812 real(RKC) :: quadGK
2813 end function
2814#endif
2815
2816#if RK1_ENABLED
2817 module function getQuadGK21_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2819 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK1
2820#endif
2821 use pm_kind, only: RKC => RK1
2822 procedure(real(RKC)) :: getFunc
2823 type(ninf_type) , intent(in) :: lb
2824 type(pinf_type) , intent(in) :: ub
2825 type(GK21_type) , intent(in) :: qrule
2826 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2827 real(RKC) :: quadGK
2828 end function
2829#endif
2830
2831 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2832
2833 end interface
2834
2835 ! GK31
2836
2837 interface getQuadGK
2838
2839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2840
2841#if RK5_ENABLED
2842 module function getQuadGK31_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2844 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK5
2845#endif
2846 use pm_kind, only: RKC => RK5
2847 procedure(real(RKC)) :: getFunc
2848 real(RKC) , intent(in) :: lb
2849 real(RKC) , intent(in) :: ub
2850 type(GK31_type) , intent(in) :: qrule
2851 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2852 real(RKC) :: quadGK
2853 end function
2854#endif
2855
2856#if RK4_ENABLED
2857 module function getQuadGK31_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2859 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK4
2860#endif
2861 use pm_kind, only: RKC => RK4
2862 procedure(real(RKC)) :: getFunc
2863 real(RKC) , intent(in) :: lb
2864 real(RKC) , intent(in) :: ub
2865 type(GK31_type) , intent(in) :: qrule
2866 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2867 real(RKC) :: quadGK
2868 end function
2869#endif
2870
2871#if RK3_ENABLED
2872 module function getQuadGK31_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2874 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK3
2875#endif
2876 use pm_kind, only: RKC => RK3
2877 procedure(real(RKC)) :: getFunc
2878 real(RKC) , intent(in) :: lb
2879 real(RKC) , intent(in) :: ub
2880 type(GK31_type) , intent(in) :: qrule
2881 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2882 real(RKC) :: quadGK
2883 end function
2884#endif
2885
2886#if RK2_ENABLED
2887 module function getQuadGK31_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2889 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK2
2890#endif
2891 use pm_kind, only: RKC => RK2
2892 procedure(real(RKC)) :: getFunc
2893 real(RKC) , intent(in) :: lb
2894 real(RKC) , intent(in) :: ub
2895 type(GK31_type) , intent(in) :: qrule
2896 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2897 real(RKC) :: quadGK
2898 end function
2899#endif
2900
2901#if RK1_ENABLED
2902 module function getQuadGK31_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2904 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK1
2905#endif
2906 use pm_kind, only: RKC => RK1
2907 procedure(real(RKC)) :: getFunc
2908 real(RKC) , intent(in) :: lb
2909 real(RKC) , intent(in) :: ub
2910 type(GK31_type) , intent(in) :: qrule
2911 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2912 real(RKC) :: quadGK
2913 end function
2914#endif
2915
2916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2917
2918#if RK5_ENABLED
2919 module function getQuadGK31_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2921 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK5
2922#endif
2923 use pm_kind, only: RKC => RK5
2924 procedure(real(RKC)) :: getFunc
2925 real(RKC) , intent(in) :: lb
2926 type(pinf_type) , intent(in) :: ub
2927 type(GK31_type) , intent(in) :: qrule
2928 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2929 real(RKC) :: quadGK
2930 end function
2931#endif
2932
2933#if RK4_ENABLED
2934 module function getQuadGK31_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2936 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK4
2937#endif
2938 use pm_kind, only: RKC => RK4
2939 procedure(real(RKC)) :: getFunc
2940 real(RKC) , intent(in) :: lb
2941 type(pinf_type) , intent(in) :: ub
2942 type(GK31_type) , intent(in) :: qrule
2943 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2944 real(RKC) :: quadGK
2945 end function
2946#endif
2947
2948#if RK3_ENABLED
2949 module function getQuadGK31_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2951 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK3
2952#endif
2953 use pm_kind, only: RKC => RK3
2954 procedure(real(RKC)) :: getFunc
2955 real(RKC) , intent(in) :: lb
2956 type(pinf_type) , intent(in) :: ub
2957 type(GK31_type) , intent(in) :: qrule
2958 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2959 real(RKC) :: quadGK
2960 end function
2961#endif
2962
2963#if RK2_ENABLED
2964 module function getQuadGK31_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2966 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK2
2967#endif
2968 use pm_kind, only: RKC => RK2
2969 procedure(real(RKC)) :: getFunc
2970 real(RKC) , intent(in) :: lb
2971 type(pinf_type) , intent(in) :: ub
2972 type(GK31_type) , intent(in) :: qrule
2973 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2974 real(RKC) :: quadGK
2975 end function
2976#endif
2977
2978#if RK1_ENABLED
2979 module function getQuadGK31_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2981 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK1
2982#endif
2983 use pm_kind, only: RKC => RK1
2984 procedure(real(RKC)) :: getFunc
2985 real(RKC) , intent(in) :: lb
2986 type(pinf_type) , intent(in) :: ub
2987 type(GK31_type) , intent(in) :: qrule
2988 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2989 real(RKC) :: quadGK
2990 end function
2991#endif
2992
2993 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2994
2995#if RK5_ENABLED
2996 module function getQuadGK31_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2998 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK5
2999#endif
3000 use pm_kind, only: RKC => RK5
3001 procedure(real(RKC)) :: getFunc
3002 type(ninf_type) , intent(in) :: lb
3003 real(RKC) , intent(in) :: ub
3004 type(GK31_type) , intent(in) :: qrule
3005 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3006 real(RKC) :: quadGK
3007 end function
3008#endif
3009
3010#if RK4_ENABLED
3011 module function getQuadGK31_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3013 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK4
3014#endif
3015 use pm_kind, only: RKC => RK4
3016 procedure(real(RKC)) :: getFunc
3017 type(ninf_type) , intent(in) :: lb
3018 real(RKC) , intent(in) :: ub
3019 type(GK31_type) , intent(in) :: qrule
3020 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3021 real(RKC) :: quadGK
3022 end function
3023#endif
3024
3025#if RK3_ENABLED
3026 module function getQuadGK31_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3028 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK3
3029#endif
3030 use pm_kind, only: RKC => RK3
3031 procedure(real(RKC)) :: getFunc
3032 type(ninf_type) , intent(in) :: lb
3033 real(RKC) , intent(in) :: ub
3034 type(GK31_type) , intent(in) :: qrule
3035 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3036 real(RKC) :: quadGK
3037 end function
3038#endif
3039
3040#if RK2_ENABLED
3041 module function getQuadGK31_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3043 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK2
3044#endif
3045 use pm_kind, only: RKC => RK2
3046 procedure(real(RKC)) :: getFunc
3047 type(ninf_type) , intent(in) :: lb
3048 real(RKC) , intent(in) :: ub
3049 type(GK31_type) , intent(in) :: qrule
3050 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3051 real(RKC) :: quadGK
3052 end function
3053#endif
3054
3055#if RK1_ENABLED
3056 module function getQuadGK31_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3058 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK1
3059#endif
3060 use pm_kind, only: RKC => RK1
3061 procedure(real(RKC)) :: getFunc
3062 type(ninf_type) , intent(in) :: lb
3063 real(RKC) , intent(in) :: ub
3064 type(GK31_type) , intent(in) :: qrule
3065 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3066 real(RKC) :: quadGK
3067 end function
3068#endif
3069
3070 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3071
3072#if RK5_ENABLED
3073 module function getQuadGK31_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3075 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK5
3076#endif
3077 use pm_kind, only: RKC => RK5
3078 procedure(real(RKC)) :: getFunc
3079 type(ninf_type) , intent(in) :: lb
3080 type(pinf_type) , intent(in) :: ub
3081 type(GK31_type) , intent(in) :: qrule
3082 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3083 real(RKC) :: quadGK
3084 end function
3085#endif
3086
3087#if RK4_ENABLED
3088 module function getQuadGK31_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3090 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK4
3091#endif
3092 use pm_kind, only: RKC => RK4
3093 procedure(real(RKC)) :: getFunc
3094 type(ninf_type) , intent(in) :: lb
3095 type(pinf_type) , intent(in) :: ub
3096 type(GK31_type) , intent(in) :: qrule
3097 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3098 real(RKC) :: quadGK
3099 end function
3100#endif
3101
3102#if RK3_ENABLED
3103 module function getQuadGK31_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3105 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK3
3106#endif
3107 use pm_kind, only: RKC => RK3
3108 procedure(real(RKC)) :: getFunc
3109 type(ninf_type) , intent(in) :: lb
3110 type(pinf_type) , intent(in) :: ub
3111 type(GK31_type) , intent(in) :: qrule
3112 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3113 real(RKC) :: quadGK
3114 end function
3115#endif
3116
3117#if RK2_ENABLED
3118 module function getQuadGK31_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3120 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK2
3121#endif
3122 use pm_kind, only: RKC => RK2
3123 procedure(real(RKC)) :: getFunc
3124 type(ninf_type) , intent(in) :: lb
3125 type(pinf_type) , intent(in) :: ub
3126 type(GK31_type) , intent(in) :: qrule
3127 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3128 real(RKC) :: quadGK
3129 end function
3130#endif
3131
3132#if RK1_ENABLED
3133 module function getQuadGK31_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3135 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK1
3136#endif
3137 use pm_kind, only: RKC => RK1
3138 procedure(real(RKC)) :: getFunc
3139 type(ninf_type) , intent(in) :: lb
3140 type(pinf_type) , intent(in) :: ub
3141 type(GK31_type) , intent(in) :: qrule
3142 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3143 real(RKC) :: quadGK
3144 end function
3145#endif
3146
3147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3148
3149 end interface
3150
3151 ! GK41
3152
3153 interface getQuadGK
3154
3155 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3156
3157#if RK5_ENABLED
3158 module function getQuadGK41_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3160 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK5
3161#endif
3162 use pm_kind, only: RKC => RK5
3163 procedure(real(RKC)) :: getFunc
3164 real(RKC) , intent(in) :: lb
3165 real(RKC) , intent(in) :: ub
3166 type(GK41_type) , intent(in) :: qrule
3167 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3168 real(RKC) :: quadGK
3169 end function
3170#endif
3171
3172#if RK4_ENABLED
3173 module function getQuadGK41_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3175 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK4
3176#endif
3177 use pm_kind, only: RKC => RK4
3178 procedure(real(RKC)) :: getFunc
3179 real(RKC) , intent(in) :: lb
3180 real(RKC) , intent(in) :: ub
3181 type(GK41_type) , intent(in) :: qrule
3182 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3183 real(RKC) :: quadGK
3184 end function
3185#endif
3186
3187#if RK3_ENABLED
3188 module function getQuadGK41_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3190 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK3
3191#endif
3192 use pm_kind, only: RKC => RK3
3193 procedure(real(RKC)) :: getFunc
3194 real(RKC) , intent(in) :: lb
3195 real(RKC) , intent(in) :: ub
3196 type(GK41_type) , intent(in) :: qrule
3197 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3198 real(RKC) :: quadGK
3199 end function
3200#endif
3201
3202#if RK2_ENABLED
3203 module function getQuadGK41_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3205 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK2
3206#endif
3207 use pm_kind, only: RKC => RK2
3208 procedure(real(RKC)) :: getFunc
3209 real(RKC) , intent(in) :: lb
3210 real(RKC) , intent(in) :: ub
3211 type(GK41_type) , intent(in) :: qrule
3212 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3213 real(RKC) :: quadGK
3214 end function
3215#endif
3216
3217#if RK1_ENABLED
3218 module function getQuadGK41_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3220 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK1
3221#endif
3222 use pm_kind, only: RKC => RK1
3223 procedure(real(RKC)) :: getFunc
3224 real(RKC) , intent(in) :: lb
3225 real(RKC) , intent(in) :: ub
3226 type(GK41_type) , intent(in) :: qrule
3227 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3228 real(RKC) :: quadGK
3229 end function
3230#endif
3231
3232 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3233
3234#if RK5_ENABLED
3235 module function getQuadGK41_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3237 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK5
3238#endif
3239 use pm_kind, only: RKC => RK5
3240 procedure(real(RKC)) :: getFunc
3241 real(RKC) , intent(in) :: lb
3242 type(pinf_type) , intent(in) :: ub
3243 type(GK41_type) , intent(in) :: qrule
3244 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3245 real(RKC) :: quadGK
3246 end function
3247#endif
3248
3249#if RK4_ENABLED
3250 module function getQuadGK41_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3252 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK4
3253#endif
3254 use pm_kind, only: RKC => RK4
3255 procedure(real(RKC)) :: getFunc
3256 real(RKC) , intent(in) :: lb
3257 type(pinf_type) , intent(in) :: ub
3258 type(GK41_type) , intent(in) :: qrule
3259 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3260 real(RKC) :: quadGK
3261 end function
3262#endif
3263
3264#if RK3_ENABLED
3265 module function getQuadGK41_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3267 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK3
3268#endif
3269 use pm_kind, only: RKC => RK3
3270 procedure(real(RKC)) :: getFunc
3271 real(RKC) , intent(in) :: lb
3272 type(pinf_type) , intent(in) :: ub
3273 type(GK41_type) , intent(in) :: qrule
3274 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3275 real(RKC) :: quadGK
3276 end function
3277#endif
3278
3279#if RK2_ENABLED
3280 module function getQuadGK41_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3282 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK2
3283#endif
3284 use pm_kind, only: RKC => RK2
3285 procedure(real(RKC)) :: getFunc
3286 real(RKC) , intent(in) :: lb
3287 type(pinf_type) , intent(in) :: ub
3288 type(GK41_type) , intent(in) :: qrule
3289 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3290 real(RKC) :: quadGK
3291 end function
3292#endif
3293
3294#if RK1_ENABLED
3295 module function getQuadGK41_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3297 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK1
3298#endif
3299 use pm_kind, only: RKC => RK1
3300 procedure(real(RKC)) :: getFunc
3301 real(RKC) , intent(in) :: lb
3302 type(pinf_type) , intent(in) :: ub
3303 type(GK41_type) , intent(in) :: qrule
3304 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3305 real(RKC) :: quadGK
3306 end function
3307#endif
3308
3309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3310
3311#if RK5_ENABLED
3312 module function getQuadGK41_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3314 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK5
3315#endif
3316 use pm_kind, only: RKC => RK5
3317 procedure(real(RKC)) :: getFunc
3318 type(ninf_type) , intent(in) :: lb
3319 real(RKC) , intent(in) :: ub
3320 type(GK41_type) , intent(in) :: qrule
3321 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3322 real(RKC) :: quadGK
3323 end function
3324#endif
3325
3326#if RK4_ENABLED
3327 module function getQuadGK41_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3329 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK4
3330#endif
3331 use pm_kind, only: RKC => RK4
3332 procedure(real(RKC)) :: getFunc
3333 type(ninf_type) , intent(in) :: lb
3334 real(RKC) , intent(in) :: ub
3335 type(GK41_type) , intent(in) :: qrule
3336 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3337 real(RKC) :: quadGK
3338 end function
3339#endif
3340
3341#if RK3_ENABLED
3342 module function getQuadGK41_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3344 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK3
3345#endif
3346 use pm_kind, only: RKC => RK3
3347 procedure(real(RKC)) :: getFunc
3348 type(ninf_type) , intent(in) :: lb
3349 real(RKC) , intent(in) :: ub
3350 type(GK41_type) , intent(in) :: qrule
3351 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3352 real(RKC) :: quadGK
3353 end function
3354#endif
3355
3356#if RK2_ENABLED
3357 module function getQuadGK41_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3359 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK2
3360#endif
3361 use pm_kind, only: RKC => RK2
3362 procedure(real(RKC)) :: getFunc
3363 type(ninf_type) , intent(in) :: lb
3364 real(RKC) , intent(in) :: ub
3365 type(GK41_type) , intent(in) :: qrule
3366 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3367 real(RKC) :: quadGK
3368 end function
3369#endif
3370
3371#if RK1_ENABLED
3372 module function getQuadGK41_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3374 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK1
3375#endif
3376 use pm_kind, only: RKC => RK1
3377 procedure(real(RKC)) :: getFunc
3378 type(ninf_type) , intent(in) :: lb
3379 real(RKC) , intent(in) :: ub
3380 type(GK41_type) , intent(in) :: qrule
3381 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3382 real(RKC) :: quadGK
3383 end function
3384#endif
3385
3386 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3387
3388#if RK5_ENABLED
3389 module function getQuadGK41_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3391 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK5
3392#endif
3393 use pm_kind, only: RKC => RK5
3394 procedure(real(RKC)) :: getFunc
3395 type(ninf_type) , intent(in) :: lb
3396 type(pinf_type) , intent(in) :: ub
3397 type(GK41_type) , intent(in) :: qrule
3398 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3399 real(RKC) :: quadGK
3400 end function
3401#endif
3402
3403#if RK4_ENABLED
3404 module function getQuadGK41_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3406 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK4
3407#endif
3408 use pm_kind, only: RKC => RK4
3409 procedure(real(RKC)) :: getFunc
3410 type(ninf_type) , intent(in) :: lb
3411 type(pinf_type) , intent(in) :: ub
3412 type(GK41_type) , intent(in) :: qrule
3413 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3414 real(RKC) :: quadGK
3415 end function
3416#endif
3417
3418#if RK3_ENABLED
3419 module function getQuadGK41_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3421 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK3
3422#endif
3423 use pm_kind, only: RKC => RK3
3424 procedure(real(RKC)) :: getFunc
3425 type(ninf_type) , intent(in) :: lb
3426 type(pinf_type) , intent(in) :: ub
3427 type(GK41_type) , intent(in) :: qrule
3428 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3429 real(RKC) :: quadGK
3430 end function
3431#endif
3432
3433#if RK2_ENABLED
3434 module function getQuadGK41_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3436 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK2
3437#endif
3438 use pm_kind, only: RKC => RK2
3439 procedure(real(RKC)) :: getFunc
3440 type(ninf_type) , intent(in) :: lb
3441 type(pinf_type) , intent(in) :: ub
3442 type(GK41_type) , intent(in) :: qrule
3443 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3444 real(RKC) :: quadGK
3445 end function
3446#endif
3447
3448#if RK1_ENABLED
3449 module function getQuadGK41_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3451 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK1
3452#endif
3453 use pm_kind, only: RKC => RK1
3454 procedure(real(RKC)) :: getFunc
3455 type(ninf_type) , intent(in) :: lb
3456 type(pinf_type) , intent(in) :: ub
3457 type(GK41_type) , intent(in) :: qrule
3458 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3459 real(RKC) :: quadGK
3460 end function
3461#endif
3462
3463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3464
3465 end interface
3466
3467 ! GK51
3468
3469 interface getQuadGK
3470
3471 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3472
3473#if RK5_ENABLED
3474 module function getQuadGK51_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3476 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK5
3477#endif
3478 use pm_kind, only: RKC => RK5
3479 procedure(real(RKC)) :: getFunc
3480 real(RKC) , intent(in) :: lb
3481 real(RKC) , intent(in) :: ub
3482 type(GK51_type) , intent(in) :: qrule
3483 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3484 real(RKC) :: quadGK
3485 end function
3486#endif
3487
3488#if RK4_ENABLED
3489 module function getQuadGK51_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3491 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK4
3492#endif
3493 use pm_kind, only: RKC => RK4
3494 procedure(real(RKC)) :: getFunc
3495 real(RKC) , intent(in) :: lb
3496 real(RKC) , intent(in) :: ub
3497 type(GK51_type) , intent(in) :: qrule
3498 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3499 real(RKC) :: quadGK
3500 end function
3501#endif
3502
3503#if RK3_ENABLED
3504 module function getQuadGK51_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3506 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK3
3507#endif
3508 use pm_kind, only: RKC => RK3
3509 procedure(real(RKC)) :: getFunc
3510 real(RKC) , intent(in) :: lb
3511 real(RKC) , intent(in) :: ub
3512 type(GK51_type) , intent(in) :: qrule
3513 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3514 real(RKC) :: quadGK
3515 end function
3516#endif
3517
3518#if RK2_ENABLED
3519 module function getQuadGK51_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3521 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK2
3522#endif
3523 use pm_kind, only: RKC => RK2
3524 procedure(real(RKC)) :: getFunc
3525 real(RKC) , intent(in) :: lb
3526 real(RKC) , intent(in) :: ub
3527 type(GK51_type) , intent(in) :: qrule
3528 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3529 real(RKC) :: quadGK
3530 end function
3531#endif
3532
3533#if RK1_ENABLED
3534 module function getQuadGK51_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3536 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK1
3537#endif
3538 use pm_kind, only: RKC => RK1
3539 procedure(real(RKC)) :: getFunc
3540 real(RKC) , intent(in) :: lb
3541 real(RKC) , intent(in) :: ub
3542 type(GK51_type) , intent(in) :: qrule
3543 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3544 real(RKC) :: quadGK
3545 end function
3546#endif
3547
3548 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3549
3550#if RK5_ENABLED
3551 module function getQuadGK51_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3553 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK5
3554#endif
3555 use pm_kind, only: RKC => RK5
3556 procedure(real(RKC)) :: getFunc
3557 real(RKC) , intent(in) :: lb
3558 type(pinf_type) , intent(in) :: ub
3559 type(GK51_type) , intent(in) :: qrule
3560 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3561 real(RKC) :: quadGK
3562 end function
3563#endif
3564
3565#if RK4_ENABLED
3566 module function getQuadGK51_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3568 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK4
3569#endif
3570 use pm_kind, only: RKC => RK4
3571 procedure(real(RKC)) :: getFunc
3572 real(RKC) , intent(in) :: lb
3573 type(pinf_type) , intent(in) :: ub
3574 type(GK51_type) , intent(in) :: qrule
3575 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3576 real(RKC) :: quadGK
3577 end function
3578#endif
3579
3580#if RK3_ENABLED
3581 module function getQuadGK51_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3583 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK3
3584#endif
3585 use pm_kind, only: RKC => RK3
3586 procedure(real(RKC)) :: getFunc
3587 real(RKC) , intent(in) :: lb
3588 type(pinf_type) , intent(in) :: ub
3589 type(GK51_type) , intent(in) :: qrule
3590 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3591 real(RKC) :: quadGK
3592 end function
3593#endif
3594
3595#if RK2_ENABLED
3596 module function getQuadGK51_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3598 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK2
3599#endif
3600 use pm_kind, only: RKC => RK2
3601 procedure(real(RKC)) :: getFunc
3602 real(RKC) , intent(in) :: lb
3603 type(pinf_type) , intent(in) :: ub
3604 type(GK51_type) , intent(in) :: qrule
3605 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3606 real(RKC) :: quadGK
3607 end function
3608#endif
3609
3610#if RK1_ENABLED
3611 module function getQuadGK51_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3613 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK1
3614#endif
3615 use pm_kind, only: RKC => RK1
3616 procedure(real(RKC)) :: getFunc
3617 real(RKC) , intent(in) :: lb
3618 type(pinf_type) , intent(in) :: ub
3619 type(GK51_type) , intent(in) :: qrule
3620 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3621 real(RKC) :: quadGK
3622 end function
3623#endif
3624
3625 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3626
3627#if RK5_ENABLED
3628 module function getQuadGK51_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3630 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK5
3631#endif
3632 use pm_kind, only: RKC => RK5
3633 procedure(real(RKC)) :: getFunc
3634 type(ninf_type) , intent(in) :: lb
3635 real(RKC) , intent(in) :: ub
3636 type(GK51_type) , intent(in) :: qrule
3637 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3638 real(RKC) :: quadGK
3639 end function
3640#endif
3641
3642#if RK4_ENABLED
3643 module function getQuadGK51_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3645 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK4
3646#endif
3647 use pm_kind, only: RKC => RK4
3648 procedure(real(RKC)) :: getFunc
3649 type(ninf_type) , intent(in) :: lb
3650 real(RKC) , intent(in) :: ub
3651 type(GK51_type) , intent(in) :: qrule
3652 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3653 real(RKC) :: quadGK
3654 end function
3655#endif
3656
3657#if RK3_ENABLED
3658 module function getQuadGK51_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3660 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK3
3661#endif
3662 use pm_kind, only: RKC => RK3
3663 procedure(real(RKC)) :: getFunc
3664 type(ninf_type) , intent(in) :: lb
3665 real(RKC) , intent(in) :: ub
3666 type(GK51_type) , intent(in) :: qrule
3667 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3668 real(RKC) :: quadGK
3669 end function
3670#endif
3671
3672#if RK2_ENABLED
3673 module function getQuadGK51_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3675 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK2
3676#endif
3677 use pm_kind, only: RKC => RK2
3678 procedure(real(RKC)) :: getFunc
3679 type(ninf_type) , intent(in) :: lb
3680 real(RKC) , intent(in) :: ub
3681 type(GK51_type) , intent(in) :: qrule
3682 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3683 real(RKC) :: quadGK
3684 end function
3685#endif
3686
3687#if RK1_ENABLED
3688 module function getQuadGK51_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3690 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK1
3691#endif
3692 use pm_kind, only: RKC => RK1
3693 procedure(real(RKC)) :: getFunc
3694 type(ninf_type) , intent(in) :: lb
3695 real(RKC) , intent(in) :: ub
3696 type(GK51_type) , intent(in) :: qrule
3697 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3698 real(RKC) :: quadGK
3699 end function
3700#endif
3701
3702 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3703
3704#if RK5_ENABLED
3705 module function getQuadGK51_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3707 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK5
3708#endif
3709 use pm_kind, only: RKC => RK5
3710 procedure(real(RKC)) :: getFunc
3711 type(ninf_type) , intent(in) :: lb
3712 type(pinf_type) , intent(in) :: ub
3713 type(GK51_type) , intent(in) :: qrule
3714 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3715 real(RKC) :: quadGK
3716 end function
3717#endif
3718
3719#if RK4_ENABLED
3720 module function getQuadGK51_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3722 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK4
3723#endif
3724 use pm_kind, only: RKC => RK4
3725 procedure(real(RKC)) :: getFunc
3726 type(ninf_type) , intent(in) :: lb
3727 type(pinf_type) , intent(in) :: ub
3728 type(GK51_type) , intent(in) :: qrule
3729 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3730 real(RKC) :: quadGK
3731 end function
3732#endif
3733
3734#if RK3_ENABLED
3735 module function getQuadGK51_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3737 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK3
3738#endif
3739 use pm_kind, only: RKC => RK3
3740 procedure(real(RKC)) :: getFunc
3741 type(ninf_type) , intent(in) :: lb
3742 type(pinf_type) , intent(in) :: ub
3743 type(GK51_type) , intent(in) :: qrule
3744 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3745 real(RKC) :: quadGK
3746 end function
3747#endif
3748
3749#if RK2_ENABLED
3750 module function getQuadGK51_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3752 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK2
3753#endif
3754 use pm_kind, only: RKC => RK2
3755 procedure(real(RKC)) :: getFunc
3756 type(ninf_type) , intent(in) :: lb
3757 type(pinf_type) , intent(in) :: ub
3758 type(GK51_type) , intent(in) :: qrule
3759 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3760 real(RKC) :: quadGK
3761 end function
3762#endif
3763
3764#if RK1_ENABLED
3765 module function getQuadGK51_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3767 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK1
3768#endif
3769 use pm_kind, only: RKC => RK1
3770 procedure(real(RKC)) :: getFunc
3771 type(ninf_type) , intent(in) :: lb
3772 type(pinf_type) , intent(in) :: ub
3773 type(GK51_type) , intent(in) :: qrule
3774 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3775 real(RKC) :: quadGK
3776 end function
3777#endif
3778
3779 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3780
3781 end interface
3782
3783 ! GK61
3784
3785 interface getQuadGK
3786
3787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3788
3789#if RK5_ENABLED
3790 module function getQuadGK61_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3792 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK5
3793#endif
3794 use pm_kind, only: RKC => RK5
3795 procedure(real(RKC)) :: getFunc
3796 real(RKC) , intent(in) :: lb
3797 real(RKC) , intent(in) :: ub
3798 type(GK61_type) , intent(in) :: qrule
3799 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3800 real(RKC) :: quadGK
3801 end function
3802#endif
3803
3804#if RK4_ENABLED
3805 module function getQuadGK61_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3807 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK4
3808#endif
3809 use pm_kind, only: RKC => RK4
3810 procedure(real(RKC)) :: getFunc
3811 real(RKC) , intent(in) :: lb
3812 real(RKC) , intent(in) :: ub
3813 type(GK61_type) , intent(in) :: qrule
3814 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3815 real(RKC) :: quadGK
3816 end function
3817#endif
3818
3819#if RK3_ENABLED
3820 module function getQuadGK61_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3822 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK3
3823#endif
3824 use pm_kind, only: RKC => RK3
3825 procedure(real(RKC)) :: getFunc
3826 real(RKC) , intent(in) :: lb
3827 real(RKC) , intent(in) :: ub
3828 type(GK61_type) , intent(in) :: qrule
3829 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3830 real(RKC) :: quadGK
3831 end function
3832#endif
3833
3834#if RK2_ENABLED
3835 module function getQuadGK61_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3837 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK2
3838#endif
3839 use pm_kind, only: RKC => RK2
3840 procedure(real(RKC)) :: getFunc
3841 real(RKC) , intent(in) :: lb
3842 real(RKC) , intent(in) :: ub
3843 type(GK61_type) , intent(in) :: qrule
3844 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3845 real(RKC) :: quadGK
3846 end function
3847#endif
3848
3849#if RK1_ENABLED
3850 module function getQuadGK61_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3852 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK1
3853#endif
3854 use pm_kind, only: RKC => RK1
3855 procedure(real(RKC)) :: getFunc
3856 real(RKC) , intent(in) :: lb
3857 real(RKC) , intent(in) :: ub
3858 type(GK61_type) , intent(in) :: qrule
3859 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3860 real(RKC) :: quadGK
3861 end function
3862#endif
3863
3864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3865
3866#if RK5_ENABLED
3867 module function getQuadGK61_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3869 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK5
3870#endif
3871 use pm_kind, only: RKC => RK5
3872 procedure(real(RKC)) :: getFunc
3873 real(RKC) , intent(in) :: lb
3874 type(pinf_type) , intent(in) :: ub
3875 type(GK61_type) , intent(in) :: qrule
3876 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3877 real(RKC) :: quadGK
3878 end function
3879#endif
3880
3881#if RK4_ENABLED
3882 module function getQuadGK61_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3884 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK4
3885#endif
3886 use pm_kind, only: RKC => RK4
3887 procedure(real(RKC)) :: getFunc
3888 real(RKC) , intent(in) :: lb
3889 type(pinf_type) , intent(in) :: ub
3890 type(GK61_type) , intent(in) :: qrule
3891 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3892 real(RKC) :: quadGK
3893 end function
3894#endif
3895
3896#if RK3_ENABLED
3897 module function getQuadGK61_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3899 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK3
3900#endif
3901 use pm_kind, only: RKC => RK3
3902 procedure(real(RKC)) :: getFunc
3903 real(RKC) , intent(in) :: lb
3904 type(pinf_type) , intent(in) :: ub
3905 type(GK61_type) , intent(in) :: qrule
3906 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3907 real(RKC) :: quadGK
3908 end function
3909#endif
3910
3911#if RK2_ENABLED
3912 module function getQuadGK61_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3914 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK2
3915#endif
3916 use pm_kind, only: RKC => RK2
3917 procedure(real(RKC)) :: getFunc
3918 real(RKC) , intent(in) :: lb
3919 type(pinf_type) , intent(in) :: ub
3920 type(GK61_type) , intent(in) :: qrule
3921 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3922 real(RKC) :: quadGK
3923 end function
3924#endif
3925
3926#if RK1_ENABLED
3927 module function getQuadGK61_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3929 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK1
3930#endif
3931 use pm_kind, only: RKC => RK1
3932 procedure(real(RKC)) :: getFunc
3933 real(RKC) , intent(in) :: lb
3934 type(pinf_type) , intent(in) :: ub
3935 type(GK61_type) , intent(in) :: qrule
3936 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3937 real(RKC) :: quadGK
3938 end function
3939#endif
3940
3941 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3942
3943#if RK5_ENABLED
3944 module function getQuadGK61_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3946 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK5
3947#endif
3948 use pm_kind, only: RKC => RK5
3949 procedure(real(RKC)) :: getFunc
3950 type(ninf_type) , intent(in) :: lb
3951 real(RKC) , intent(in) :: ub
3952 type(GK61_type) , intent(in) :: qrule
3953 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3954 real(RKC) :: quadGK
3955 end function
3956#endif
3957
3958#if RK4_ENABLED
3959 module function getQuadGK61_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3961 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK4
3962#endif
3963 use pm_kind, only: RKC => RK4
3964 procedure(real(RKC)) :: getFunc
3965 type(ninf_type) , intent(in) :: lb
3966 real(RKC) , intent(in) :: ub
3967 type(GK61_type) , intent(in) :: qrule
3968 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3969 real(RKC) :: quadGK
3970 end function
3971#endif
3972
3973#if RK3_ENABLED
3974 module function getQuadGK61_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3976 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK3
3977#endif
3978 use pm_kind, only: RKC => RK3
3979 procedure(real(RKC)) :: getFunc
3980 type(ninf_type) , intent(in) :: lb
3981 real(RKC) , intent(in) :: ub
3982 type(GK61_type) , intent(in) :: qrule
3983 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3984 real(RKC) :: quadGK
3985 end function
3986#endif
3987
3988#if RK2_ENABLED
3989 module function getQuadGK61_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3991 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK2
3992#endif
3993 use pm_kind, only: RKC => RK2
3994 procedure(real(RKC)) :: getFunc
3995 type(ninf_type) , intent(in) :: lb
3996 real(RKC) , intent(in) :: ub
3997 type(GK61_type) , intent(in) :: qrule
3998 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3999 real(RKC) :: quadGK
4000 end function
4001#endif
4002
4003#if RK1_ENABLED
4004 module function getQuadGK61_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4006 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK1
4007#endif
4008 use pm_kind, only: RKC => RK1
4009 procedure(real(RKC)) :: getFunc
4010 type(ninf_type) , intent(in) :: lb
4011 real(RKC) , intent(in) :: ub
4012 type(GK61_type) , intent(in) :: qrule
4013 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4014 real(RKC) :: quadGK
4015 end function
4016#endif
4017
4018 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4019
4020#if RK5_ENABLED
4021 module function getQuadGK61_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4023 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK5
4024#endif
4025 use pm_kind, only: RKC => RK5
4026 procedure(real(RKC)) :: getFunc
4027 type(ninf_type) , intent(in) :: lb
4028 type(pinf_type) , intent(in) :: ub
4029 type(GK61_type) , intent(in) :: qrule
4030 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4031 real(RKC) :: quadGK
4032 end function
4033#endif
4034
4035#if RK4_ENABLED
4036 module function getQuadGK61_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4038 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK4
4039#endif
4040 use pm_kind, only: RKC => RK4
4041 procedure(real(RKC)) :: getFunc
4042 type(ninf_type) , intent(in) :: lb
4043 type(pinf_type) , intent(in) :: ub
4044 type(GK61_type) , intent(in) :: qrule
4045 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4046 real(RKC) :: quadGK
4047 end function
4048#endif
4049
4050#if RK3_ENABLED
4051 module function getQuadGK61_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4053 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK3
4054#endif
4055 use pm_kind, only: RKC => RK3
4056 procedure(real(RKC)) :: getFunc
4057 type(ninf_type) , intent(in) :: lb
4058 type(pinf_type) , intent(in) :: ub
4059 type(GK61_type) , intent(in) :: qrule
4060 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4061 real(RKC) :: quadGK
4062 end function
4063#endif
4064
4065#if RK2_ENABLED
4066 module function getQuadGK61_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4068 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK2
4069#endif
4070 use pm_kind, only: RKC => RK2
4071 procedure(real(RKC)) :: getFunc
4072 type(ninf_type) , intent(in) :: lb
4073 type(pinf_type) , intent(in) :: ub
4074 type(GK61_type) , intent(in) :: qrule
4075 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4076 real(RKC) :: quadGK
4077 end function
4078#endif
4079
4080#if RK1_ENABLED
4081 module function getQuadGK61_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4083 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK1
4084#endif
4085 use pm_kind, only: RKC => RK1
4086 procedure(real(RKC)) :: getFunc
4087 type(ninf_type) , intent(in) :: lb
4088 type(pinf_type) , intent(in) :: ub
4089 type(GK61_type) , intent(in) :: qrule
4090 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4091 real(RKC) :: quadGK
4092 end function
4093#endif
4094
4095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4096
4097 end interface
4098
4099 ! GKXX
4100
4101 interface getQuadGK
4102
4103 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4104
4105#if RK5_ENABLED
4106 module function getQuadGKXX_FF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4108 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK5
4109#endif
4110 use pm_kind, only: RKC => RK5
4111 procedure(real(RKC)) :: getFunc
4112 real(RKC) , intent(in) :: lb
4113 real(RKC) , intent(in) :: ub
4114 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4115 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4116 real(RKC) :: quadGK
4117 end function
4118#endif
4119
4120#if RK4_ENABLED
4121 module function getQuadGKXX_FF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4123 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK4
4124#endif
4125 use pm_kind, only: RKC => RK4
4126 procedure(real(RKC)) :: getFunc
4127 real(RKC) , intent(in) :: lb
4128 real(RKC) , intent(in) :: ub
4129 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4130 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4131 real(RKC) :: quadGK
4132 end function
4133#endif
4134
4135#if RK3_ENABLED
4136 module function getQuadGKXX_FF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4138 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK3
4139#endif
4140 use pm_kind, only: RKC => RK3
4141 procedure(real(RKC)) :: getFunc
4142 real(RKC) , intent(in) :: lb
4143 real(RKC) , intent(in) :: ub
4144 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4145 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4146 real(RKC) :: quadGK
4147 end function
4148#endif
4149
4150#if RK2_ENABLED
4151 module function getQuadGKXX_FF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4153 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK2
4154#endif
4155 use pm_kind, only: RKC => RK2
4156 procedure(real(RKC)) :: getFunc
4157 real(RKC) , intent(in) :: lb
4158 real(RKC) , intent(in) :: ub
4159 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4160 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4161 real(RKC) :: quadGK
4162 end function
4163#endif
4164
4165#if RK1_ENABLED
4166 module function getQuadGKXX_FF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4168 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK1
4169#endif
4170 use pm_kind, only: RKC => RK1
4171 procedure(real(RKC)) :: getFunc
4172 real(RKC) , intent(in) :: lb
4173 real(RKC) , intent(in) :: ub
4174 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4175 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4176 real(RKC) :: quadGK
4177 end function
4178#endif
4179
4180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4181
4182#if RK5_ENABLED
4183 module function getQuadGKXX_FI_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4185 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK5
4186#endif
4187 use pm_kind, only: RKC => RK5
4188 procedure(real(RKC)) :: getFunc
4189 real(RKC) , intent(in) :: lb
4190 type(pinf_type) , intent(in) :: ub
4191 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4192 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4193 real(RKC) :: quadGK
4194 end function
4195#endif
4196
4197#if RK4_ENABLED
4198 module function getQuadGKXX_FI_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4200 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK4
4201#endif
4202 use pm_kind, only: RKC => RK4
4203 procedure(real(RKC)) :: getFunc
4204 real(RKC) , intent(in) :: lb
4205 type(pinf_type) , intent(in) :: ub
4206 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4207 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4208 real(RKC) :: quadGK
4209 end function
4210#endif
4211
4212#if RK3_ENABLED
4213 module function getQuadGKXX_FI_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4215 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK3
4216#endif
4217 use pm_kind, only: RKC => RK3
4218 procedure(real(RKC)) :: getFunc
4219 real(RKC) , intent(in) :: lb
4220 type(pinf_type) , intent(in) :: ub
4221 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4222 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4223 real(RKC) :: quadGK
4224 end function
4225#endif
4226
4227#if RK2_ENABLED
4228 module function getQuadGKXX_FI_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4230 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK2
4231#endif
4232 use pm_kind, only: RKC => RK2
4233 procedure(real(RKC)) :: getFunc
4234 real(RKC) , intent(in) :: lb
4235 type(pinf_type) , intent(in) :: ub
4236 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4237 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4238 real(RKC) :: quadGK
4239 end function
4240#endif
4241
4242#if RK1_ENABLED
4243 module function getQuadGKXX_FI_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4245 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK1
4246#endif
4247 use pm_kind, only: RKC => RK1
4248 procedure(real(RKC)) :: getFunc
4249 real(RKC) , intent(in) :: lb
4250 type(pinf_type) , intent(in) :: ub
4251 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4252 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4253 real(RKC) :: quadGK
4254 end function
4255#endif
4256
4257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4258
4259#if RK5_ENABLED
4260 module function getQuadGKXX_IF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4262 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK5
4263#endif
4264 use pm_kind, only: RKC => RK5
4265 procedure(real(RKC)) :: getFunc
4266 type(ninf_type) , intent(in) :: lb
4267 real(RKC) , intent(in) :: ub
4268 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4269 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4270 real(RKC) :: quadGK
4271 end function
4272#endif
4273
4274#if RK4_ENABLED
4275 module function getQuadGKXX_IF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4277 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK4
4278#endif
4279 use pm_kind, only: RKC => RK4
4280 procedure(real(RKC)) :: getFunc
4281 type(ninf_type) , intent(in) :: lb
4282 real(RKC) , intent(in) :: ub
4283 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4284 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4285 real(RKC) :: quadGK
4286 end function
4287#endif
4288
4289#if RK3_ENABLED
4290 module function getQuadGKXX_IF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4292 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK3
4293#endif
4294 use pm_kind, only: RKC => RK3
4295 procedure(real(RKC)) :: getFunc
4296 type(ninf_type) , intent(in) :: lb
4297 real(RKC) , intent(in) :: ub
4298 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4299 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4300 real(RKC) :: quadGK
4301 end function
4302#endif
4303
4304#if RK2_ENABLED
4305 module function getQuadGKXX_IF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4307 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK2
4308#endif
4309 use pm_kind, only: RKC => RK2
4310 procedure(real(RKC)) :: getFunc
4311 type(ninf_type) , intent(in) :: lb
4312 real(RKC) , intent(in) :: ub
4313 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4314 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4315 real(RKC) :: quadGK
4316 end function
4317#endif
4318
4319#if RK1_ENABLED
4320 module function getQuadGKXX_IF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4322 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK1
4323#endif
4324 use pm_kind, only: RKC => RK1
4325 procedure(real(RKC)) :: getFunc
4326 type(ninf_type) , intent(in) :: lb
4327 real(RKC) , intent(in) :: ub
4328 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4329 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4330 real(RKC) :: quadGK
4331 end function
4332#endif
4333
4334 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4335
4336#if RK5_ENABLED
4337 module function getQuadGKXX_II_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4339 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK5
4340#endif
4341 use pm_kind, only: RKC => RK5
4342 procedure(real(RKC)) :: getFunc
4343 type(ninf_type) , intent(in) :: lb
4344 type(pinf_type) , intent(in) :: ub
4345 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4346 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4347 real(RKC) :: quadGK
4348 end function
4349#endif
4350
4351#if RK4_ENABLED
4352 module function getQuadGKXX_II_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4354 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK4
4355#endif
4356 use pm_kind, only: RKC => RK4
4357 procedure(real(RKC)) :: getFunc
4358 type(ninf_type) , intent(in) :: lb
4359 type(pinf_type) , intent(in) :: ub
4360 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4361 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4362 real(RKC) :: quadGK
4363 end function
4364#endif
4365
4366#if RK3_ENABLED
4367 module function getQuadGKXX_II_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4369 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK3
4370#endif
4371 use pm_kind, only: RKC => RK3
4372 procedure(real(RKC)) :: getFunc
4373 type(ninf_type) , intent(in) :: lb
4374 type(pinf_type) , intent(in) :: ub
4375 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4376 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4377 real(RKC) :: quadGK
4378 end function
4379#endif
4380
4381#if RK2_ENABLED
4382 module function getQuadGKXX_II_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4384 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK2
4385#endif
4386 use pm_kind, only: RKC => RK2
4387 procedure(real(RKC)) :: getFunc
4388 type(ninf_type) , intent(in) :: lb
4389 type(pinf_type) , intent(in) :: ub
4390 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4391 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4392 real(RKC) :: quadGK
4393 end function
4394#endif
4395
4396#if RK1_ENABLED
4397 module function getQuadGKXX_II_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4399 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK1
4400#endif
4401 use pm_kind, only: RKC => RK1
4402 procedure(real(RKC)) :: getFunc
4403 type(ninf_type) , intent(in) :: lb
4404 type(pinf_type) , intent(in) :: ub
4405 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4406 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4407 real(RKC) :: quadGK
4408 end function
4409#endif
4410
4411 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4412
4413 end interface
4414
4415!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4416
4434 integer(IK) , parameter :: MAXLEN_EPSTAB = 50_IK
4435
4463 type :: weps_type
4464 end type
4465
4484 type(weps_type) , parameter :: weps = weps_type()
4485
4486!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4487
4529 interface setSeqLimEps
4530
4531 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4532
4533#if RK5_ENABLED
4534 pure module subroutine setSeqLimEps_RK5(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4536 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK5
4537#endif
4538 use pm_kind, only: RKC => RK5
4539 integer(IK) , intent(inout) :: inew, ical
4540 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4541 real(RKC) , intent(out) :: seqlim, abserr
4542 end subroutine
4543#endif
4544
4545#if RK4_ENABLED
4546 pure module subroutine setSeqLimEps_RK4(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4548 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK4
4549#endif
4550 use pm_kind, only: RKC => RK4
4551 integer(IK) , intent(inout) :: inew, ical
4552 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4553 real(RKC) , intent(out) :: seqlim, abserr
4554 end subroutine
4555#endif
4556
4557#if RK3_ENABLED
4558 pure module subroutine setSeqLimEps_RK3(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4560 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK3
4561#endif
4562 use pm_kind, only: RKC => RK3
4563 integer(IK) , intent(inout) :: inew, ical
4564 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4565 real(RKC) , intent(out) :: seqlim, abserr
4566 end subroutine
4567#endif
4568
4569#if RK2_ENABLED
4570 pure module subroutine setSeqLimEps_RK2(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4572 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK2
4573#endif
4574 use pm_kind, only: RKC => RK2
4575 integer(IK) , intent(inout) :: inew, ical
4576 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4577 real(RKC) , intent(out) :: seqlim, abserr
4578 end subroutine
4579#endif
4580
4581#if RK1_ENABLED
4582 pure module subroutine setSeqLimEps_RK1(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4584 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK1
4585#endif
4586 use pm_kind, only: RKC => RK1
4587 integer(IK) , intent(inout) :: inew, ical
4588 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4589 real(RKC) , intent(out) :: seqlim, abserr
4590 end subroutine
4591#endif
4592
4593 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4594
4595 end interface
4596
4597!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4598
4642 interface setErrSorted
4643
4644 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4645
4646#if RK5_ENABLED
4647 PURE module subroutine setErrSorted_RK5(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4649 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK5
4650#endif
4651 use pm_kind, only: RKC => RK5
4652 integer(IK) , intent(in) :: nintmax
4653 real(RKC) , intent(in) :: sinfoErr(:)
4654 integer(IK) , intent(inout) , contiguous :: sindex(:)
4655 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4656 real(RKC) , intent(out) :: maxErrVal
4657 end subroutine
4658#endif
4659
4660#if RK4_ENABLED
4661 PURE module subroutine setErrSorted_RK4(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4663 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK4
4664#endif
4665 use pm_kind, only: RKC => RK4
4666 integer(IK) , intent(in) :: nintmax
4667 real(RKC) , intent(in) :: sinfoErr(:)
4668 integer(IK) , intent(inout) , contiguous :: sindex(:)
4669 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4670 real(RKC) , intent(out) :: maxErrVal
4671 end subroutine
4672#endif
4673
4674#if RK3_ENABLED
4675 PURE module subroutine setErrSorted_RK3(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4677 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK3
4678#endif
4679 use pm_kind, only: RKC => RK3
4680 integer(IK) , intent(in) :: nintmax
4681 real(RKC) , intent(in) :: sinfoErr(:)
4682 integer(IK) , intent(inout) , contiguous :: sindex(:)
4683 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4684 real(RKC) , intent(out) :: maxErrVal
4685 end subroutine
4686#endif
4687
4688#if RK2_ENABLED
4689 PURE module subroutine setErrSorted_RK2(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4691 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK2
4692#endif
4693 use pm_kind, only: RKC => RK2
4694 integer(IK) , intent(in) :: nintmax
4695 real(RKC) , intent(in) :: sinfoErr(:)
4696 integer(IK) , intent(inout) , contiguous :: sindex(:)
4697 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4698 real(RKC) , intent(out) :: maxErrVal
4699 end subroutine
4700#endif
4701
4702#if RK1_ENABLED
4703 PURE module subroutine setErrSorted_RK1(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4705 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK1
4706#endif
4707 use pm_kind, only: RKC => RK1
4708 integer(IK) , intent(in) :: nintmax
4709 real(RKC) , intent(in) :: sinfoErr(:)
4710 integer(IK) , intent(inout) , contiguous :: sindex(:)
4711 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4712 real(RKC) , intent(out) :: maxErrVal
4713 end subroutine
4714#endif
4715
4716 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4717
4718 end interface
4719
4720!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4721
4768 interface setChebExpan
4769
4770 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4771
4772#if RK5_ENABLED
4773 pure module subroutine setChebExpan_RK5(func, cheb12, cheb24)
4774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4775 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK5
4776#endif
4777 use pm_kind, only: RKC => RK5
4778 real(RKC) , intent(inout) :: func(25)
4779 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4780 end subroutine
4781#endif
4782
4783#if RK4_ENABLED
4784 pure module subroutine setChebExpan_RK4(func, cheb12, cheb24)
4785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4786 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK4
4787#endif
4788 use pm_kind, only: RKC => RK4
4789 real(RKC) , intent(inout) :: func(25)
4790 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4791 end subroutine
4792#endif
4793
4794#if RK3_ENABLED
4795 pure module subroutine setChebExpan_RK3(func, cheb12, cheb24)
4796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4797 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK3
4798#endif
4799 use pm_kind, only: RKC => RK3
4800 real(RKC) , intent(inout) :: func(25)
4801 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4802 end subroutine
4803#endif
4804
4805#if RK2_ENABLED
4806 pure module subroutine setChebExpan_RK2(func, cheb12, cheb24)
4807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4808 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK2
4809#endif
4810 use pm_kind, only: RKC => RK2
4811 real(RKC) , intent(inout) :: func(25)
4812 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4813 end subroutine
4814#endif
4815
4816#if RK1_ENABLED
4817 pure module subroutine setChebExpan_RK1(func, cheb12, cheb24)
4818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4819 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK1
4820#endif
4821 use pm_kind, only: RKC => RK1
4822 real(RKC) , intent(inout) :: func(25)
4823 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4824 end subroutine
4825#endif
4826
4827 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4828
4829 end interface
4830
4831!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4832
4919 interface isFailedQuad
4920
4921 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4922
4923#if RK5_ENABLED
4924 module function isFailedQuadQAGD_RK5(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4926 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK5
4927#endif
4928 use pm_kind, only: RKC => RK5
4929 procedure(real(RKC)) :: getFunc
4930 real(RKC) , intent(in) :: lb, ub
4931 real(RKC) , intent(out) :: integral
4932 real(RKC) , intent(out) , optional :: abserr
4933 real(RKC) , intent(in) , optional :: abstol
4934 real(RKC) , intent(in) , optional :: reltol
4935 integer(IK) , intent(out) , optional :: neval
4936 integer(IK) , intent(out) , optional :: nint
4937 character(*, SK) , intent(out) , optional :: msg
4938 logical(LK) :: failed
4939 end function
4940#endif
4941
4942#if RK4_ENABLED
4943 module function isFailedQuadQAGD_RK4(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4945 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK4
4946#endif
4947 use pm_kind, only: RKC => RK4
4948 procedure(real(RKC)) :: getFunc
4949 real(RKC) , intent(in) :: lb, ub
4950 real(RKC) , intent(out) :: integral
4951 real(RKC) , intent(out) , optional :: abserr
4952 real(RKC) , intent(in) , optional :: abstol
4953 real(RKC) , intent(in) , optional :: reltol
4954 integer(IK) , intent(out) , optional :: neval
4955 integer(IK) , intent(out) , optional :: nint
4956 character(*, SK) , intent(out) , optional :: msg
4957 logical(LK) :: failed
4958 end function
4959#endif
4960
4961#if RK3_ENABLED
4962 module function isFailedQuadQAGD_RK3(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4964 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK3
4965#endif
4966 use pm_kind, only: RKC => RK3
4967 procedure(real(RKC)) :: getFunc
4968 real(RKC) , intent(in) :: lb, ub
4969 real(RKC) , intent(out) :: integral
4970 real(RKC) , intent(out) , optional :: abserr
4971 real(RKC) , intent(in) , optional :: abstol
4972 real(RKC) , intent(in) , optional :: reltol
4973 integer(IK) , intent(out) , optional :: neval
4974 integer(IK) , intent(out) , optional :: nint
4975 character(*, SK) , intent(out) , optional :: msg
4976 logical(LK) :: failed
4977 end function
4978#endif
4979
4980#if RK2_ENABLED
4981 module function isFailedQuadQAGD_RK2(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4983 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK2
4984#endif
4985 use pm_kind, only: RKC => RK2
4986 procedure(real(RKC)) :: getFunc
4987 real(RKC) , intent(in) :: lb, ub
4988 real(RKC) , intent(out) :: integral
4989 real(RKC) , intent(out) , optional :: abserr
4990 real(RKC) , intent(in) , optional :: abstol
4991 real(RKC) , intent(in) , optional :: reltol
4992 integer(IK) , intent(out) , optional :: neval
4993 integer(IK) , intent(out) , optional :: nint
4994 character(*, SK) , intent(out) , optional :: msg
4995 logical(LK) :: failed
4996 end function
4997#endif
4998
4999#if RK1_ENABLED
5000 module function isFailedQuadQAGD_RK1(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5002 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK1
5003#endif
5004 use pm_kind, only: RKC => RK1
5005 procedure(real(RKC)) :: getFunc
5006 real(RKC) , intent(in) :: lb, ub
5007 real(RKC) , intent(out) :: integral
5008 real(RKC) , intent(out) , optional :: abserr
5009 real(RKC) , intent(in) , optional :: abstol
5010 real(RKC) , intent(in) , optional :: reltol
5011 integer(IK) , intent(out) , optional :: neval
5012 integer(IK) , intent(out) , optional :: nint
5013 character(*, SK) , intent(out) , optional :: msg
5014 logical(LK) :: failed
5015 end function
5016#endif
5017
5018 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5019
5020#if RK5_ENABLED
5021 module function isFailedQuadQAGS_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5023 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK5
5024#endif
5025 use pm_kind, only: RKC => RK5
5026 procedure(real(RKC)) :: getFunc
5027 real(RKC) , intent(in) :: lb, ub
5028 real(RKC) , intent(out) :: integral
5029 type(weps_type) , intent(in) :: help
5030 real(RKC) , intent(out) , optional :: abserr
5031 real(RKC) , intent(in) , optional :: abstol
5032 real(RKC) , intent(in) , optional :: reltol
5033 integer(IK) , intent(out) , optional :: neval
5034 integer(IK) , intent(out) , optional :: nint
5035 character(*, SK) , intent(out) , optional :: msg
5036 logical(LK) :: failed
5037 end function
5038#endif
5039
5040#if RK4_ENABLED
5041 module function isFailedQuadQAGS_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5043 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK4
5044#endif
5045 use pm_kind, only: RKC => RK4
5046 procedure(real(RKC)) :: getFunc
5047 real(RKC) , intent(in) :: lb, ub
5048 real(RKC) , intent(out) :: integral
5049 type(weps_type) , intent(in) :: help
5050 real(RKC) , intent(out) , optional :: abserr
5051 real(RKC) , intent(in) , optional :: abstol
5052 real(RKC) , intent(in) , optional :: reltol
5053 integer(IK) , intent(out) , optional :: neval
5054 integer(IK) , intent(out) , optional :: nint
5055 character(*, SK) , intent(out) , optional :: msg
5056 logical(LK) :: failed
5057 end function
5058#endif
5059
5060#if RK3_ENABLED
5061 module function isFailedQuadQAGS_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5063 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK3
5064#endif
5065 use pm_kind, only: RKC => RK3
5066 procedure(real(RKC)) :: getFunc
5067 real(RKC) , intent(in) :: lb, ub
5068 real(RKC) , intent(out) :: integral
5069 type(weps_type) , intent(in) :: help
5070 real(RKC) , intent(out) , optional :: abserr
5071 real(RKC) , intent(in) , optional :: abstol
5072 real(RKC) , intent(in) , optional :: reltol
5073 integer(IK) , intent(out) , optional :: neval
5074 integer(IK) , intent(out) , optional :: nint
5075 character(*, SK) , intent(out) , optional :: msg
5076 logical(LK) :: failed
5077 end function
5078#endif
5079
5080#if RK2_ENABLED
5081 module function isFailedQuadQAGS_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5083 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK2
5084#endif
5085 use pm_kind, only: RKC => RK2
5086 procedure(real(RKC)) :: getFunc
5087 real(RKC) , intent(in) :: lb, ub
5088 real(RKC) , intent(out) :: integral
5089 type(weps_type) , intent(in) :: help
5090 real(RKC) , intent(out) , optional :: abserr
5091 real(RKC) , intent(in) , optional :: abstol
5092 real(RKC) , intent(in) , optional :: reltol
5093 integer(IK) , intent(out) , optional :: neval
5094 integer(IK) , intent(out) , optional :: nint
5095 character(*, SK) , intent(out) , optional :: msg
5096 logical(LK) :: failed
5097 end function
5098#endif
5099
5100#if RK1_ENABLED
5101 module function isFailedQuadQAGS_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5103 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK1
5104#endif
5105 use pm_kind, only: RKC => RK1
5106 procedure(real(RKC)) :: getFunc
5107 real(RKC) , intent(in) :: lb, ub
5108 real(RKC) , intent(out) :: integral
5109 type(weps_type) , intent(in) :: help
5110 real(RKC) , intent(out) , optional :: abserr
5111 real(RKC) , intent(in) , optional :: abstol
5112 real(RKC) , intent(in) , optional :: reltol
5113 integer(IK) , intent(out) , optional :: neval
5114 integer(IK) , intent(out) , optional :: nint
5115 character(*, SK) , intent(out) , optional :: msg
5116 logical(LK) :: failed
5117 end function
5118#endif
5119
5120 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5121
5122#if RK5_ENABLED
5123 module function isFailedQuadQAGP_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5125 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK5
5126#endif
5127 use pm_kind, only: RKC => RK5
5128 procedure(real(RKC)) :: getFunc
5129 real(RKC) , intent(in) :: lb, ub
5130 real(RKC) , intent(out) :: integral
5131 real(RKC) , intent(in) , contiguous :: help(:)
5132 real(RKC) , intent(out) , optional :: abserr
5133 real(RKC) , intent(in) , optional :: abstol
5134 real(RKC) , intent(in) , optional :: reltol
5135 integer(IK) , intent(out) , optional :: neval
5136 integer(IK) , intent(out) , optional :: nint
5137 character(*, SK) , intent(out) , optional :: msg
5138 logical(LK) :: failed
5139 end function
5140#endif
5141
5142#if RK4_ENABLED
5143 module function isFailedQuadQAGP_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5145 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK4
5146#endif
5147 use pm_kind, only: RKC => RK4
5148 procedure(real(RKC)) :: getFunc
5149 real(RKC) , intent(in) :: lb, ub
5150 real(RKC) , intent(out) :: integral
5151 real(RKC) , intent(in) , contiguous :: help(:)
5152 real(RKC) , intent(out) , optional :: abserr
5153 real(RKC) , intent(in) , optional :: abstol
5154 real(RKC) , intent(in) , optional :: reltol
5155 integer(IK) , intent(out) , optional :: neval
5156 integer(IK) , intent(out) , optional :: nint
5157 character(*, SK) , intent(out) , optional :: msg
5158 logical(LK) :: failed
5159 end function
5160#endif
5161
5162#if RK3_ENABLED
5163 module function isFailedQuadQAGP_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5165 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK3
5166#endif
5167 use pm_kind, only: RKC => RK3
5168 procedure(real(RKC)) :: getFunc
5169 real(RKC) , intent(in) :: lb, ub
5170 real(RKC) , intent(out) :: integral
5171 real(RKC) , intent(in) , contiguous :: help(:)
5172 real(RKC) , intent(out) , optional :: abserr
5173 real(RKC) , intent(in) , optional :: abstol
5174 real(RKC) , intent(in) , optional :: reltol
5175 integer(IK) , intent(out) , optional :: neval
5176 integer(IK) , intent(out) , optional :: nint
5177 character(*, SK) , intent(out) , optional :: msg
5178 logical(LK) :: failed
5179 end function
5180#endif
5181
5182#if RK2_ENABLED
5183 module function isFailedQuadQAGP_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5185 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK2
5186#endif
5187 use pm_kind, only: RKC => RK2
5188 procedure(real(RKC)) :: getFunc
5189 real(RKC) , intent(in) :: lb, ub
5190 real(RKC) , intent(out) :: integral
5191 real(RKC) , intent(in) , contiguous :: help(:)
5192 real(RKC) , intent(out) , optional :: abserr
5193 real(RKC) , intent(in) , optional :: abstol
5194 real(RKC) , intent(in) , optional :: reltol
5195 integer(IK) , intent(out) , optional :: neval
5196 integer(IK) , intent(out) , optional :: nint
5197 character(*, SK) , intent(out) , optional :: msg
5198 logical(LK) :: failed
5199 end function
5200#endif
5201
5202#if RK1_ENABLED
5203 module function isFailedQuadQAGP_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5205 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK1
5206#endif
5207 use pm_kind, only: RKC => RK1
5208 procedure(real(RKC)) :: getFunc
5209 real(RKC) , intent(in) :: lb, ub
5210 real(RKC) , intent(out) :: integral
5211 real(RKC) , intent(in) , contiguous :: help(:)
5212 real(RKC) , intent(out) , optional :: abserr
5213 real(RKC) , intent(in) , optional :: abstol
5214 real(RKC) , intent(in) , optional :: reltol
5215 integer(IK) , intent(out) , optional :: neval
5216 integer(IK) , intent(out) , optional :: nint
5217 character(*, SK) , intent(out) , optional :: msg
5218 logical(LK) :: failed
5219 end function
5220#endif
5221
5222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5223
5224#if RK5_ENABLED
5225 module function isFailedQuadQAWC_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5227 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK5
5228#endif
5229 use pm_kind, only: RKC => RK5
5230 procedure(real(RKC)) :: getFunc
5231 real(RKC) , intent(in) :: lb, ub
5232 real(RKC) , intent(out) :: integral
5233 type(wcauchy_type) , intent(in) :: help
5234 real(RKC) , intent(out) , optional :: abserr
5235 real(RKC) , intent(in) , optional :: abstol
5236 real(RKC) , intent(in) , optional :: reltol
5237 integer(IK) , intent(out) , optional :: neval
5238 integer(IK) , intent(out) , optional :: nint
5239 character(*, SK) , intent(out) , optional :: msg
5240 logical(LK) :: failed
5241 end function
5242#endif
5243
5244#if RK4_ENABLED
5245 module function isFailedQuadQAWC_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5247 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK4
5248#endif
5249 use pm_kind, only: RKC => RK4
5250 procedure(real(RKC)) :: getFunc
5251 real(RKC) , intent(in) :: lb, ub
5252 real(RKC) , intent(out) :: integral
5253 type(wcauchy_type) , intent(in) :: help
5254 real(RKC) , intent(out) , optional :: abserr
5255 real(RKC) , intent(in) , optional :: abstol
5256 real(RKC) , intent(in) , optional :: reltol
5257 integer(IK) , intent(out) , optional :: neval
5258 integer(IK) , intent(out) , optional :: nint
5259 character(*, SK) , intent(out) , optional :: msg
5260 logical(LK) :: failed
5261 end function
5262#endif
5263
5264#if RK3_ENABLED
5265 module function isFailedQuadQAWC_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5267 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK3
5268#endif
5269 use pm_kind, only: RKC => RK3
5270 procedure(real(RKC)) :: getFunc
5271 real(RKC) , intent(in) :: lb, ub
5272 real(RKC) , intent(out) :: integral
5273 type(wcauchy_type) , intent(in) :: help
5274 real(RKC) , intent(out) , optional :: abserr
5275 real(RKC) , intent(in) , optional :: abstol
5276 real(RKC) , intent(in) , optional :: reltol
5277 integer(IK) , intent(out) , optional :: neval
5278 integer(IK) , intent(out) , optional :: nint
5279 character(*, SK) , intent(out) , optional :: msg
5280 logical(LK) :: failed
5281 end function
5282#endif
5283
5284#if RK2_ENABLED
5285 module function isFailedQuadQAWC_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5287 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK2
5288#endif
5289 use pm_kind, only: RKC => RK2
5290 procedure(real(RKC)) :: getFunc
5291 real(RKC) , intent(in) :: lb, ub
5292 real(RKC) , intent(out) :: integral
5293 type(wcauchy_type) , intent(in) :: help
5294 real(RKC) , intent(out) , optional :: abserr
5295 real(RKC) , intent(in) , optional :: abstol
5296 real(RKC) , intent(in) , optional :: reltol
5297 integer(IK) , intent(out) , optional :: neval
5298 integer(IK) , intent(out) , optional :: nint
5299 character(*, SK) , intent(out) , optional :: msg
5300 logical(LK) :: failed
5301 end function
5302#endif
5303
5304#if RK1_ENABLED
5305 module function isFailedQuadQAWC_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5307 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK1
5308#endif
5309 use pm_kind, only: RKC => RK1
5310 procedure(real(RKC)) :: getFunc
5311 real(RKC) , intent(in) :: lb, ub
5312 real(RKC) , intent(out) :: integral
5313 type(wcauchy_type) , intent(in) :: help
5314 real(RKC) , intent(out) , optional :: abserr
5315 real(RKC) , intent(in) , optional :: abstol
5316 real(RKC) , intent(in) , optional :: reltol
5317 integer(IK) , intent(out) , optional :: neval
5318 integer(IK) , intent(out) , optional :: nint
5319 character(*, SK) , intent(out) , optional :: msg
5320 logical(LK) :: failed
5321 end function
5322#endif
5323
5324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5325
5326 end interface
5327
5328!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5329
5566
5567!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5568
5569 ! QAGD_GK15
5570
5571 interface getQuadErr
5572
5573 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5574
5575#if RK5_ENABLED
5576 module function QAGD_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK5
5579#endif
5580 use pm_kind, only: RKC => RK5
5581 procedure(real(RKC)) :: getFunc
5582 real(RKC) , intent(in) :: lb
5583 real(RKC) , intent(in) :: ub
5584 real(RKC) , intent(in) :: abstol
5585 real(RKC) , intent(in) :: reltol
5586 type(GK15_type) , intent(in) :: qrule
5587 real(RKC) , intent(out) :: integral, abserr
5588 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5589 integer(IK) , intent(out) , contiguous :: sindex(:)
5590 integer(IK) , intent(out) :: neval
5591 integer(IK) , intent(out) :: nint
5592 integer(IK) :: err
5593 end function
5594#endif
5595
5596#if RK4_ENABLED
5597 module function QAGD_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5599 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK4
5600#endif
5601 use pm_kind, only: RKC => RK4
5602 procedure(real(RKC)) :: getFunc
5603 real(RKC) , intent(in) :: lb
5604 real(RKC) , intent(in) :: ub
5605 real(RKC) , intent(in) :: abstol
5606 real(RKC) , intent(in) :: reltol
5607 type(GK15_type) , intent(in) :: qrule
5608 real(RKC) , intent(out) :: integral, abserr
5609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5610 integer(IK) , intent(out) , contiguous :: sindex(:)
5611 integer(IK) , intent(out) :: neval
5612 integer(IK) , intent(out) :: nint
5613 integer(IK) :: err
5614 end function
5615#endif
5616
5617#if RK3_ENABLED
5618 module function QAGD_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK3
5621#endif
5622 use pm_kind, only: RKC => RK3
5623 procedure(real(RKC)) :: getFunc
5624 real(RKC) , intent(in) :: lb
5625 real(RKC) , intent(in) :: ub
5626 real(RKC) , intent(in) :: abstol
5627 real(RKC) , intent(in) :: reltol
5628 type(GK15_type) , intent(in) :: qrule
5629 real(RKC) , intent(out) :: integral, abserr
5630 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5631 integer(IK) , intent(out) , contiguous :: sindex(:)
5632 integer(IK) , intent(out) :: neval
5633 integer(IK) , intent(out) :: nint
5634 integer(IK) :: err
5635 end function
5636#endif
5637
5638#if RK2_ENABLED
5639 module function QAGD_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5641 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK2
5642#endif
5643 use pm_kind, only: RKC => RK2
5644 procedure(real(RKC)) :: getFunc
5645 real(RKC) , intent(in) :: lb
5646 real(RKC) , intent(in) :: ub
5647 real(RKC) , intent(in) :: abstol
5648 real(RKC) , intent(in) :: reltol
5649 type(GK15_type) , intent(in) :: qrule
5650 real(RKC) , intent(out) :: integral, abserr
5651 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5652 integer(IK) , intent(out) , contiguous :: sindex(:)
5653 integer(IK) , intent(out) :: neval
5654 integer(IK) , intent(out) :: nint
5655 integer(IK) :: err
5656 end function
5657#endif
5658
5659#if RK1_ENABLED
5660 module function QAGD_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5662 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK1
5663#endif
5664 use pm_kind, only: RKC => RK1
5665 procedure(real(RKC)) :: getFunc
5666 real(RKC) , intent(in) :: lb
5667 real(RKC) , intent(in) :: ub
5668 real(RKC) , intent(in) :: abstol
5669 real(RKC) , intent(in) :: reltol
5670 type(GK15_type) , intent(in) :: qrule
5671 real(RKC) , intent(out) :: integral, abserr
5672 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5673 integer(IK) , intent(out) , contiguous :: sindex(:)
5674 integer(IK) , intent(out) :: neval
5675 integer(IK) , intent(out) :: nint
5676 integer(IK) :: err
5677 end function
5678#endif
5679
5680 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5681
5682#if RK5_ENABLED
5683 module function QAGD_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5685 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK5
5686#endif
5687 use pm_kind, only: RKC => RK5
5688 procedure(real(RKC)) :: getFunc
5689 real(RKC) , intent(in) :: lb
5690 type(pinf_type) , intent(in) :: ub
5691 real(RKC) , intent(in) :: abstol
5692 real(RKC) , intent(in) :: reltol
5693 type(GK15_type) , intent(in) :: qrule
5694 real(RKC) , intent(out) :: integral, abserr
5695 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5696 integer(IK) , intent(out) , contiguous :: sindex(:)
5697 integer(IK) , intent(out) :: neval
5698 integer(IK) , intent(out) :: nint
5699 integer(IK) :: err
5700 end function
5701#endif
5702
5703#if RK4_ENABLED
5704 module function QAGD_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK4
5707#endif
5708 use pm_kind, only: RKC => RK4
5709 procedure(real(RKC)) :: getFunc
5710 real(RKC) , intent(in) :: lb
5711 type(pinf_type) , intent(in) :: ub
5712 real(RKC) , intent(in) :: abstol
5713 real(RKC) , intent(in) :: reltol
5714 type(GK15_type) , intent(in) :: qrule
5715 real(RKC) , intent(out) :: integral, abserr
5716 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5717 integer(IK) , intent(out) , contiguous :: sindex(:)
5718 integer(IK) , intent(out) :: neval
5719 integer(IK) , intent(out) :: nint
5720 integer(IK) :: err
5721 end function
5722#endif
5723
5724#if RK3_ENABLED
5725 module function QAGD_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5727 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK3
5728#endif
5729 use pm_kind, only: RKC => RK3
5730 procedure(real(RKC)) :: getFunc
5731 real(RKC) , intent(in) :: lb
5732 type(pinf_type) , intent(in) :: ub
5733 real(RKC) , intent(in) :: abstol
5734 real(RKC) , intent(in) :: reltol
5735 type(GK15_type) , intent(in) :: qrule
5736 real(RKC) , intent(out) :: integral, abserr
5737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5738 integer(IK) , intent(out) , contiguous :: sindex(:)
5739 integer(IK) , intent(out) :: neval
5740 integer(IK) , intent(out) :: nint
5741 integer(IK) :: err
5742 end function
5743#endif
5744
5745#if RK2_ENABLED
5746 module function QAGD_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK2
5749#endif
5750 use pm_kind, only: RKC => RK2
5751 procedure(real(RKC)) :: getFunc
5752 real(RKC) , intent(in) :: lb
5753 type(pinf_type) , intent(in) :: ub
5754 real(RKC) , intent(in) :: abstol
5755 real(RKC) , intent(in) :: reltol
5756 type(GK15_type) , intent(in) :: qrule
5757 real(RKC) , intent(out) :: integral, abserr
5758 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5759 integer(IK) , intent(out) , contiguous :: sindex(:)
5760 integer(IK) , intent(out) :: neval
5761 integer(IK) , intent(out) :: nint
5762 integer(IK) :: err
5763 end function
5764#endif
5765
5766#if RK1_ENABLED
5767 module function QAGD_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5769 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK1
5770#endif
5771 use pm_kind, only: RKC => RK1
5772 procedure(real(RKC)) :: getFunc
5773 real(RKC) , intent(in) :: lb
5774 type(pinf_type) , intent(in) :: ub
5775 real(RKC) , intent(in) :: abstol
5776 real(RKC) , intent(in) :: reltol
5777 type(GK15_type) , intent(in) :: qrule
5778 real(RKC) , intent(out) :: integral, abserr
5779 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5780 integer(IK) , intent(out) , contiguous :: sindex(:)
5781 integer(IK) , intent(out) :: neval
5782 integer(IK) , intent(out) :: nint
5783 integer(IK) :: err
5784 end function
5785#endif
5786
5787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5788
5789#if RK5_ENABLED
5790 module function QAGD_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK5
5793#endif
5794 use pm_kind, only: RKC => RK5
5795 procedure(real(RKC)) :: getFunc
5796 type(ninf_type) , intent(in) :: lb
5797 real(RKC) , intent(in) :: ub
5798 real(RKC) , intent(in) :: abstol
5799 real(RKC) , intent(in) :: reltol
5800 type(GK15_type) , intent(in) :: qrule
5801 real(RKC) , intent(out) :: integral, abserr
5802 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5803 integer(IK) , intent(out) , contiguous :: sindex(:)
5804 integer(IK) , intent(out) :: neval
5805 integer(IK) , intent(out) :: nint
5806 integer(IK) :: err
5807 end function
5808#endif
5809
5810#if RK4_ENABLED
5811 module function QAGD_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5813 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK4
5814#endif
5815 use pm_kind, only: RKC => RK4
5816 procedure(real(RKC)) :: getFunc
5817 type(ninf_type) , intent(in) :: lb
5818 real(RKC) , intent(in) :: ub
5819 real(RKC) , intent(in) :: abstol
5820 real(RKC) , intent(in) :: reltol
5821 type(GK15_type) , intent(in) :: qrule
5822 real(RKC) , intent(out) :: integral, abserr
5823 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5824 integer(IK) , intent(out) , contiguous :: sindex(:)
5825 integer(IK) , intent(out) :: neval
5826 integer(IK) , intent(out) :: nint
5827 integer(IK) :: err
5828 end function
5829#endif
5830
5831#if RK3_ENABLED
5832 module function QAGD_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK3
5835#endif
5836 use pm_kind, only: RKC => RK3
5837 procedure(real(RKC)) :: getFunc
5838 type(ninf_type) , intent(in) :: lb
5839 real(RKC) , intent(in) :: ub
5840 real(RKC) , intent(in) :: abstol
5841 real(RKC) , intent(in) :: reltol
5842 type(GK15_type) , intent(in) :: qrule
5843 real(RKC) , intent(out) :: integral, abserr
5844 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5845 integer(IK) , intent(out) , contiguous :: sindex(:)
5846 integer(IK) , intent(out) :: neval
5847 integer(IK) , intent(out) :: nint
5848 integer(IK) :: err
5849 end function
5850#endif
5851
5852#if RK2_ENABLED
5853 module function QAGD_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5855 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK2
5856#endif
5857 use pm_kind, only: RKC => RK2
5858 procedure(real(RKC)) :: getFunc
5859 type(ninf_type) , intent(in) :: lb
5860 real(RKC) , intent(in) :: ub
5861 real(RKC) , intent(in) :: abstol
5862 real(RKC) , intent(in) :: reltol
5863 type(GK15_type) , intent(in) :: qrule
5864 real(RKC) , intent(out) :: integral, abserr
5865 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5866 integer(IK) , intent(out) , contiguous :: sindex(:)
5867 integer(IK) , intent(out) :: neval
5868 integer(IK) , intent(out) :: nint
5869 integer(IK) :: err
5870 end function
5871#endif
5872
5873#if RK1_ENABLED
5874 module function QAGD_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5876 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK1
5877#endif
5878 use pm_kind, only: RKC => RK1
5879 procedure(real(RKC)) :: getFunc
5880 type(ninf_type) , intent(in) :: lb
5881 real(RKC) , intent(in) :: ub
5882 real(RKC) , intent(in) :: abstol
5883 real(RKC) , intent(in) :: reltol
5884 type(GK15_type) , intent(in) :: qrule
5885 real(RKC) , intent(out) :: integral, abserr
5886 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5887 integer(IK) , intent(out) , contiguous :: sindex(:)
5888 integer(IK) , intent(out) :: neval
5889 integer(IK) , intent(out) :: nint
5890 integer(IK) :: err
5891 end function
5892#endif
5893
5894 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5895
5896#if RK5_ENABLED
5897 module function QAGD_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5899 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK5
5900#endif
5901 use pm_kind, only: RKC => RK5
5902 procedure(real(RKC)) :: getFunc
5903 type(ninf_type) , intent(in) :: lb
5904 type(pinf_type) , intent(in) :: ub
5905 real(RKC) , intent(in) :: abstol
5906 real(RKC) , intent(in) :: reltol
5907 type(GK15_type) , intent(in) :: qrule
5908 real(RKC) , intent(out) :: integral, abserr
5909 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5910 integer(IK) , intent(out) , contiguous :: sindex(:)
5911 integer(IK) , intent(out) :: neval
5912 integer(IK) , intent(out) :: nint
5913 integer(IK) :: err
5914 end function
5915#endif
5916
5917#if RK4_ENABLED
5918 module function QAGD_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK4
5921#endif
5922 use pm_kind, only: RKC => RK4
5923 procedure(real(RKC)) :: getFunc
5924 type(ninf_type) , intent(in) :: lb
5925 type(pinf_type) , intent(in) :: ub
5926 real(RKC) , intent(in) :: abstol
5927 real(RKC) , intent(in) :: reltol
5928 type(GK15_type) , intent(in) :: qrule
5929 real(RKC) , intent(out) :: integral, abserr
5930 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5931 integer(IK) , intent(out) , contiguous :: sindex(:)
5932 integer(IK) , intent(out) :: neval
5933 integer(IK) , intent(out) :: nint
5934 integer(IK) :: err
5935 end function
5936#endif
5937
5938#if RK3_ENABLED
5939 module function QAGD_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5941 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK3
5942#endif
5943 use pm_kind, only: RKC => RK3
5944 procedure(real(RKC)) :: getFunc
5945 type(ninf_type) , intent(in) :: lb
5946 type(pinf_type) , intent(in) :: ub
5947 real(RKC) , intent(in) :: abstol
5948 real(RKC) , intent(in) :: reltol
5949 type(GK15_type) , intent(in) :: qrule
5950 real(RKC) , intent(out) :: integral, abserr
5951 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5952 integer(IK) , intent(out) , contiguous :: sindex(:)
5953 integer(IK) , intent(out) :: neval
5954 integer(IK) , intent(out) :: nint
5955 integer(IK) :: err
5956 end function
5957#endif
5958
5959#if RK2_ENABLED
5960 module function QAGD_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK2
5963#endif
5964 use pm_kind, only: RKC => RK2
5965 procedure(real(RKC)) :: getFunc
5966 type(ninf_type) , intent(in) :: lb
5967 type(pinf_type) , intent(in) :: ub
5968 real(RKC) , intent(in) :: abstol
5969 real(RKC) , intent(in) :: reltol
5970 type(GK15_type) , intent(in) :: qrule
5971 real(RKC) , intent(out) :: integral, abserr
5972 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5973 integer(IK) , intent(out) , contiguous :: sindex(:)
5974 integer(IK) , intent(out) :: neval
5975 integer(IK) , intent(out) :: nint
5976 integer(IK) :: err
5977 end function
5978#endif
5979
5980#if RK1_ENABLED
5981 module function QAGD_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5983 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK1
5984#endif
5985 use pm_kind, only: RKC => RK1
5986 procedure(real(RKC)) :: getFunc
5987 type(ninf_type) , intent(in) :: lb
5988 type(pinf_type) , intent(in) :: ub
5989 real(RKC) , intent(in) :: abstol
5990 real(RKC) , intent(in) :: reltol
5991 type(GK15_type) , intent(in) :: qrule
5992 real(RKC) , intent(out) :: integral, abserr
5993 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5994 integer(IK) , intent(out) , contiguous :: sindex(:)
5995 integer(IK) , intent(out) :: neval
5996 integer(IK) , intent(out) :: nint
5997 integer(IK) :: err
5998 end function
5999#endif
6000
6001 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6002
6003 end interface
6004
6005 ! QAGD_GK21
6006
6007 interface getQuadErr
6008
6009 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6010
6011#if RK5_ENABLED
6012 module function QAGD_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK5
6015#endif
6016 use pm_kind, only: RKC => RK5
6017 procedure(real(RKC)) :: getFunc
6018 real(RKC) , intent(in) :: lb
6019 real(RKC) , intent(in) :: ub
6020 real(RKC) , intent(in) :: abstol
6021 real(RKC) , intent(in) :: reltol
6022 type(GK21_type) , intent(in) :: qrule
6023 real(RKC) , intent(out) :: integral, abserr
6024 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6025 integer(IK) , intent(out) , contiguous :: sindex(:)
6026 integer(IK) , intent(out) :: neval
6027 integer(IK) , intent(out) :: nint
6028 integer(IK) :: err
6029 end function
6030#endif
6031
6032#if RK4_ENABLED
6033 module function QAGD_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6035 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK4
6036#endif
6037 use pm_kind, only: RKC => RK4
6038 procedure(real(RKC)) :: getFunc
6039 real(RKC) , intent(in) :: lb
6040 real(RKC) , intent(in) :: ub
6041 real(RKC) , intent(in) :: abstol
6042 real(RKC) , intent(in) :: reltol
6043 type(GK21_type) , intent(in) :: qrule
6044 real(RKC) , intent(out) :: integral, abserr
6045 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6046 integer(IK) , intent(out) , contiguous :: sindex(:)
6047 integer(IK) , intent(out) :: neval
6048 integer(IK) , intent(out) :: nint
6049 integer(IK) :: err
6050 end function
6051#endif
6052
6053#if RK3_ENABLED
6054 module function QAGD_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK3
6057#endif
6058 use pm_kind, only: RKC => RK3
6059 procedure(real(RKC)) :: getFunc
6060 real(RKC) , intent(in) :: lb
6061 real(RKC) , intent(in) :: ub
6062 real(RKC) , intent(in) :: abstol
6063 real(RKC) , intent(in) :: reltol
6064 type(GK21_type) , intent(in) :: qrule
6065 real(RKC) , intent(out) :: integral, abserr
6066 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6067 integer(IK) , intent(out) , contiguous :: sindex(:)
6068 integer(IK) , intent(out) :: neval
6069 integer(IK) , intent(out) :: nint
6070 integer(IK) :: err
6071 end function
6072#endif
6073
6074#if RK2_ENABLED
6075 module function QAGD_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6077 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK2
6078#endif
6079 use pm_kind, only: RKC => RK2
6080 procedure(real(RKC)) :: getFunc
6081 real(RKC) , intent(in) :: lb
6082 real(RKC) , intent(in) :: ub
6083 real(RKC) , intent(in) :: abstol
6084 real(RKC) , intent(in) :: reltol
6085 type(GK21_type) , intent(in) :: qrule
6086 real(RKC) , intent(out) :: integral, abserr
6087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6088 integer(IK) , intent(out) , contiguous :: sindex(:)
6089 integer(IK) , intent(out) :: neval
6090 integer(IK) , intent(out) :: nint
6091 integer(IK) :: err
6092 end function
6093#endif
6094
6095#if RK1_ENABLED
6096 module function QAGD_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6098 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK1
6099#endif
6100 use pm_kind, only: RKC => RK1
6101 procedure(real(RKC)) :: getFunc
6102 real(RKC) , intent(in) :: lb
6103 real(RKC) , intent(in) :: ub
6104 real(RKC) , intent(in) :: abstol
6105 real(RKC) , intent(in) :: reltol
6106 type(GK21_type) , intent(in) :: qrule
6107 real(RKC) , intent(out) :: integral, abserr
6108 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6109 integer(IK) , intent(out) , contiguous :: sindex(:)
6110 integer(IK) , intent(out) :: neval
6111 integer(IK) , intent(out) :: nint
6112 integer(IK) :: err
6113 end function
6114#endif
6115
6116 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6117
6118#if RK5_ENABLED
6119 module function QAGD_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6121 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK5
6122#endif
6123 use pm_kind, only: RKC => RK5
6124 procedure(real(RKC)) :: getFunc
6125 real(RKC) , intent(in) :: lb
6126 type(pinf_type) , intent(in) :: ub
6127 real(RKC) , intent(in) :: abstol
6128 real(RKC) , intent(in) :: reltol
6129 type(GK21_type) , intent(in) :: qrule
6130 real(RKC) , intent(out) :: integral, abserr
6131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6132 integer(IK) , intent(out) , contiguous :: sindex(:)
6133 integer(IK) , intent(out) :: neval
6134 integer(IK) , intent(out) :: nint
6135 integer(IK) :: err
6136 end function
6137#endif
6138
6139#if RK4_ENABLED
6140 module function QAGD_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK4
6143#endif
6144 use pm_kind, only: RKC => RK4
6145 procedure(real(RKC)) :: getFunc
6146 real(RKC) , intent(in) :: lb
6147 type(pinf_type) , intent(in) :: ub
6148 real(RKC) , intent(in) :: abstol
6149 real(RKC) , intent(in) :: reltol
6150 type(GK21_type) , intent(in) :: qrule
6151 real(RKC) , intent(out) :: integral, abserr
6152 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6153 integer(IK) , intent(out) , contiguous :: sindex(:)
6154 integer(IK) , intent(out) :: neval
6155 integer(IK) , intent(out) :: nint
6156 integer(IK) :: err
6157 end function
6158#endif
6159
6160#if RK3_ENABLED
6161 module function QAGD_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6163 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK3
6164#endif
6165 use pm_kind, only: RKC => RK3
6166 procedure(real(RKC)) :: getFunc
6167 real(RKC) , intent(in) :: lb
6168 type(pinf_type) , intent(in) :: ub
6169 real(RKC) , intent(in) :: abstol
6170 real(RKC) , intent(in) :: reltol
6171 type(GK21_type) , intent(in) :: qrule
6172 real(RKC) , intent(out) :: integral, abserr
6173 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6174 integer(IK) , intent(out) , contiguous :: sindex(:)
6175 integer(IK) , intent(out) :: neval
6176 integer(IK) , intent(out) :: nint
6177 integer(IK) :: err
6178 end function
6179#endif
6180
6181#if RK2_ENABLED
6182 module function QAGD_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6184 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK2
6185#endif
6186 use pm_kind, only: RKC => RK2
6187 procedure(real(RKC)) :: getFunc
6188 real(RKC) , intent(in) :: lb
6189 type(pinf_type) , intent(in) :: ub
6190 real(RKC) , intent(in) :: abstol
6191 real(RKC) , intent(in) :: reltol
6192 type(GK21_type) , intent(in) :: qrule
6193 real(RKC) , intent(out) :: integral, abserr
6194 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6195 integer(IK) , intent(out) , contiguous :: sindex(:)
6196 integer(IK) , intent(out) :: neval
6197 integer(IK) , intent(out) :: nint
6198 integer(IK) :: err
6199 end function
6200#endif
6201
6202#if RK1_ENABLED
6203 module function QAGD_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6205 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK1
6206#endif
6207 use pm_kind, only: RKC => RK1
6208 procedure(real(RKC)) :: getFunc
6209 real(RKC) , intent(in) :: lb
6210 type(pinf_type) , intent(in) :: ub
6211 real(RKC) , intent(in) :: abstol
6212 real(RKC) , intent(in) :: reltol
6213 type(GK21_type) , intent(in) :: qrule
6214 real(RKC) , intent(out) :: integral, abserr
6215 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6216 integer(IK) , intent(out) , contiguous :: sindex(:)
6217 integer(IK) , intent(out) :: neval
6218 integer(IK) , intent(out) :: nint
6219 integer(IK) :: err
6220 end function
6221#endif
6222
6223 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6224
6225#if RK5_ENABLED
6226 module function QAGD_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6228 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK5
6229#endif
6230 use pm_kind, only: RKC => RK5
6231 procedure(real(RKC)) :: getFunc
6232 type(ninf_type) , intent(in) :: lb
6233 real(RKC) , intent(in) :: ub
6234 real(RKC) , intent(in) :: abstol
6235 real(RKC) , intent(in) :: reltol
6236 type(GK21_type) , intent(in) :: qrule
6237 real(RKC) , intent(out) :: integral, abserr
6238 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6239 integer(IK) , intent(out) , contiguous :: sindex(:)
6240 integer(IK) , intent(out) :: neval
6241 integer(IK) , intent(out) :: nint
6242 integer(IK) :: err
6243 end function
6244#endif
6245
6246#if RK4_ENABLED
6247 module function QAGD_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6249 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK4
6250#endif
6251 use pm_kind, only: RKC => RK4
6252 procedure(real(RKC)) :: getFunc
6253 type(ninf_type) , intent(in) :: lb
6254 real(RKC) , intent(in) :: ub
6255 real(RKC) , intent(in) :: abstol
6256 real(RKC) , intent(in) :: reltol
6257 type(GK21_type) , intent(in) :: qrule
6258 real(RKC) , intent(out) :: integral, abserr
6259 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6260 integer(IK) , intent(out) , contiguous :: sindex(:)
6261 integer(IK) , intent(out) :: neval
6262 integer(IK) , intent(out) :: nint
6263 integer(IK) :: err
6264 end function
6265#endif
6266
6267#if RK3_ENABLED
6268 module function QAGD_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK3
6271#endif
6272 use pm_kind, only: RKC => RK3
6273 procedure(real(RKC)) :: getFunc
6274 type(ninf_type) , intent(in) :: lb
6275 real(RKC) , intent(in) :: ub
6276 real(RKC) , intent(in) :: abstol
6277 real(RKC) , intent(in) :: reltol
6278 type(GK21_type) , intent(in) :: qrule
6279 real(RKC) , intent(out) :: integral, abserr
6280 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6281 integer(IK) , intent(out) , contiguous :: sindex(:)
6282 integer(IK) , intent(out) :: neval
6283 integer(IK) , intent(out) :: nint
6284 integer(IK) :: err
6285 end function
6286#endif
6287
6288#if RK2_ENABLED
6289 module function QAGD_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6291 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK2
6292#endif
6293 use pm_kind, only: RKC => RK2
6294 procedure(real(RKC)) :: getFunc
6295 type(ninf_type) , intent(in) :: lb
6296 real(RKC) , intent(in) :: ub
6297 real(RKC) , intent(in) :: abstol
6298 real(RKC) , intent(in) :: reltol
6299 type(GK21_type) , intent(in) :: qrule
6300 real(RKC) , intent(out) :: integral, abserr
6301 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6302 integer(IK) , intent(out) , contiguous :: sindex(:)
6303 integer(IK) , intent(out) :: neval
6304 integer(IK) , intent(out) :: nint
6305 integer(IK) :: err
6306 end function
6307#endif
6308
6309#if RK1_ENABLED
6310 module function QAGD_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6312 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK1
6313#endif
6314 use pm_kind, only: RKC => RK1
6315 procedure(real(RKC)) :: getFunc
6316 type(ninf_type) , intent(in) :: lb
6317 real(RKC) , intent(in) :: ub
6318 real(RKC) , intent(in) :: abstol
6319 real(RKC) , intent(in) :: reltol
6320 type(GK21_type) , intent(in) :: qrule
6321 real(RKC) , intent(out) :: integral, abserr
6322 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6323 integer(IK) , intent(out) , contiguous :: sindex(:)
6324 integer(IK) , intent(out) :: neval
6325 integer(IK) , intent(out) :: nint
6326 integer(IK) :: err
6327 end function
6328#endif
6329
6330 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6331
6332#if RK5_ENABLED
6333 module function QAGD_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6335 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK5
6336#endif
6337 use pm_kind, only: RKC => RK5
6338 procedure(real(RKC)) :: getFunc
6339 type(ninf_type) , intent(in) :: lb
6340 type(pinf_type) , intent(in) :: ub
6341 real(RKC) , intent(in) :: abstol
6342 real(RKC) , intent(in) :: reltol
6343 type(GK21_type) , intent(in) :: qrule
6344 real(RKC) , intent(out) :: integral, abserr
6345 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6346 integer(IK) , intent(out) , contiguous :: sindex(:)
6347 integer(IK) , intent(out) :: neval
6348 integer(IK) , intent(out) :: nint
6349 integer(IK) :: err
6350 end function
6351#endif
6352
6353#if RK4_ENABLED
6354 module function QAGD_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6356 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK4
6357#endif
6358 use pm_kind, only: RKC => RK4
6359 procedure(real(RKC)) :: getFunc
6360 type(ninf_type) , intent(in) :: lb
6361 type(pinf_type) , intent(in) :: ub
6362 real(RKC) , intent(in) :: abstol
6363 real(RKC) , intent(in) :: reltol
6364 type(GK21_type) , intent(in) :: qrule
6365 real(RKC) , intent(out) :: integral, abserr
6366 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6367 integer(IK) , intent(out) , contiguous :: sindex(:)
6368 integer(IK) , intent(out) :: neval
6369 integer(IK) , intent(out) :: nint
6370 integer(IK) :: err
6371 end function
6372#endif
6373
6374#if RK3_ENABLED
6375 module function QAGD_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6377 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK3
6378#endif
6379 use pm_kind, only: RKC => RK3
6380 procedure(real(RKC)) :: getFunc
6381 type(ninf_type) , intent(in) :: lb
6382 type(pinf_type) , intent(in) :: ub
6383 real(RKC) , intent(in) :: abstol
6384 real(RKC) , intent(in) :: reltol
6385 type(GK21_type) , intent(in) :: qrule
6386 real(RKC) , intent(out) :: integral, abserr
6387 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6388 integer(IK) , intent(out) , contiguous :: sindex(:)
6389 integer(IK) , intent(out) :: neval
6390 integer(IK) , intent(out) :: nint
6391 integer(IK) :: err
6392 end function
6393#endif
6394
6395#if RK2_ENABLED
6396 module function QAGD_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6398 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK2
6399#endif
6400 use pm_kind, only: RKC => RK2
6401 procedure(real(RKC)) :: getFunc
6402 type(ninf_type) , intent(in) :: lb
6403 type(pinf_type) , intent(in) :: ub
6404 real(RKC) , intent(in) :: abstol
6405 real(RKC) , intent(in) :: reltol
6406 type(GK21_type) , intent(in) :: qrule
6407 real(RKC) , intent(out) :: integral, abserr
6408 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6409 integer(IK) , intent(out) , contiguous :: sindex(:)
6410 integer(IK) , intent(out) :: neval
6411 integer(IK) , intent(out) :: nint
6412 integer(IK) :: err
6413 end function
6414#endif
6415
6416#if RK1_ENABLED
6417 module function QAGD_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6419 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK1
6420#endif
6421 use pm_kind, only: RKC => RK1
6422 procedure(real(RKC)) :: getFunc
6423 type(ninf_type) , intent(in) :: lb
6424 type(pinf_type) , intent(in) :: ub
6425 real(RKC) , intent(in) :: abstol
6426 real(RKC) , intent(in) :: reltol
6427 type(GK21_type) , intent(in) :: qrule
6428 real(RKC) , intent(out) :: integral, abserr
6429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6430 integer(IK) , intent(out) , contiguous :: sindex(:)
6431 integer(IK) , intent(out) :: neval
6432 integer(IK) , intent(out) :: nint
6433 integer(IK) :: err
6434 end function
6435#endif
6436
6437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6438
6439 end interface
6440
6441 ! QAGD_GK31
6442
6443 interface getQuadErr
6444
6445 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6446
6447#if RK5_ENABLED
6448 module function QAGD_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6450 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK5
6451#endif
6452 use pm_kind, only: RKC => RK5
6453 procedure(real(RKC)) :: getFunc
6454 real(RKC) , intent(in) :: lb
6455 real(RKC) , intent(in) :: ub
6456 real(RKC) , intent(in) :: abstol
6457 real(RKC) , intent(in) :: reltol
6458 type(GK31_type) , intent(in) :: qrule
6459 real(RKC) , intent(out) :: integral, abserr
6460 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6461 integer(IK) , intent(out) , contiguous :: sindex(:)
6462 integer(IK) , intent(out) :: neval
6463 integer(IK) , intent(out) :: nint
6464 integer(IK) :: err
6465 end function
6466#endif
6467
6468#if RK4_ENABLED
6469 module function QAGD_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6471 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK4
6472#endif
6473 use pm_kind, only: RKC => RK4
6474 procedure(real(RKC)) :: getFunc
6475 real(RKC) , intent(in) :: lb
6476 real(RKC) , intent(in) :: ub
6477 real(RKC) , intent(in) :: abstol
6478 real(RKC) , intent(in) :: reltol
6479 type(GK31_type) , intent(in) :: qrule
6480 real(RKC) , intent(out) :: integral, abserr
6481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6482 integer(IK) , intent(out) , contiguous :: sindex(:)
6483 integer(IK) , intent(out) :: neval
6484 integer(IK) , intent(out) :: nint
6485 integer(IK) :: err
6486 end function
6487#endif
6488
6489#if RK3_ENABLED
6490 module function QAGD_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6492 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK3
6493#endif
6494 use pm_kind, only: RKC => RK3
6495 procedure(real(RKC)) :: getFunc
6496 real(RKC) , intent(in) :: lb
6497 real(RKC) , intent(in) :: ub
6498 real(RKC) , intent(in) :: abstol
6499 real(RKC) , intent(in) :: reltol
6500 type(GK31_type) , intent(in) :: qrule
6501 real(RKC) , intent(out) :: integral, abserr
6502 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6503 integer(IK) , intent(out) , contiguous :: sindex(:)
6504 integer(IK) , intent(out) :: neval
6505 integer(IK) , intent(out) :: nint
6506 integer(IK) :: err
6507 end function
6508#endif
6509
6510#if RK2_ENABLED
6511 module function QAGD_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6513 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK2
6514#endif
6515 use pm_kind, only: RKC => RK2
6516 procedure(real(RKC)) :: getFunc
6517 real(RKC) , intent(in) :: lb
6518 real(RKC) , intent(in) :: ub
6519 real(RKC) , intent(in) :: abstol
6520 real(RKC) , intent(in) :: reltol
6521 type(GK31_type) , intent(in) :: qrule
6522 real(RKC) , intent(out) :: integral, abserr
6523 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6524 integer(IK) , intent(out) , contiguous :: sindex(:)
6525 integer(IK) , intent(out) :: neval
6526 integer(IK) , intent(out) :: nint
6527 integer(IK) :: err
6528 end function
6529#endif
6530
6531#if RK1_ENABLED
6532 module function QAGD_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6534 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK1
6535#endif
6536 use pm_kind, only: RKC => RK1
6537 procedure(real(RKC)) :: getFunc
6538 real(RKC) , intent(in) :: lb
6539 real(RKC) , intent(in) :: ub
6540 real(RKC) , intent(in) :: abstol
6541 real(RKC) , intent(in) :: reltol
6542 type(GK31_type) , intent(in) :: qrule
6543 real(RKC) , intent(out) :: integral, abserr
6544 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6545 integer(IK) , intent(out) , contiguous :: sindex(:)
6546 integer(IK) , intent(out) :: neval
6547 integer(IK) , intent(out) :: nint
6548 integer(IK) :: err
6549 end function
6550#endif
6551
6552 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6553
6554#if RK5_ENABLED
6555 module function QAGD_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6557 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK5
6558#endif
6559 use pm_kind, only: RKC => RK5
6560 procedure(real(RKC)) :: getFunc
6561 real(RKC) , intent(in) :: lb
6562 type(pinf_type) , intent(in) :: ub
6563 real(RKC) , intent(in) :: abstol
6564 real(RKC) , intent(in) :: reltol
6565 type(GK31_type) , intent(in) :: qrule
6566 real(RKC) , intent(out) :: integral, abserr
6567 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6568 integer(IK) , intent(out) , contiguous :: sindex(:)
6569 integer(IK) , intent(out) :: neval
6570 integer(IK) , intent(out) :: nint
6571 integer(IK) :: err
6572 end function
6573#endif
6574
6575#if RK4_ENABLED
6576 module function QAGD_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK4
6579#endif
6580 use pm_kind, only: RKC => RK4
6581 procedure(real(RKC)) :: getFunc
6582 real(RKC) , intent(in) :: lb
6583 type(pinf_type) , intent(in) :: ub
6584 real(RKC) , intent(in) :: abstol
6585 real(RKC) , intent(in) :: reltol
6586 type(GK31_type) , intent(in) :: qrule
6587 real(RKC) , intent(out) :: integral, abserr
6588 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6589 integer(IK) , intent(out) , contiguous :: sindex(:)
6590 integer(IK) , intent(out) :: neval
6591 integer(IK) , intent(out) :: nint
6592 integer(IK) :: err
6593 end function
6594#endif
6595
6596#if RK3_ENABLED
6597 module function QAGD_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6599 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK3
6600#endif
6601 use pm_kind, only: RKC => RK3
6602 procedure(real(RKC)) :: getFunc
6603 real(RKC) , intent(in) :: lb
6604 type(pinf_type) , intent(in) :: ub
6605 real(RKC) , intent(in) :: abstol
6606 real(RKC) , intent(in) :: reltol
6607 type(GK31_type) , intent(in) :: qrule
6608 real(RKC) , intent(out) :: integral, abserr
6609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6610 integer(IK) , intent(out) , contiguous :: sindex(:)
6611 integer(IK) , intent(out) :: neval
6612 integer(IK) , intent(out) :: nint
6613 integer(IK) :: err
6614 end function
6615#endif
6616
6617#if RK2_ENABLED
6618 module function QAGD_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK2
6621#endif
6622 use pm_kind, only: RKC => RK2
6623 procedure(real(RKC)) :: getFunc
6624 real(RKC) , intent(in) :: lb
6625 type(pinf_type) , intent(in) :: ub
6626 real(RKC) , intent(in) :: abstol
6627 real(RKC) , intent(in) :: reltol
6628 type(GK31_type) , intent(in) :: qrule
6629 real(RKC) , intent(out) :: integral, abserr
6630 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6631 integer(IK) , intent(out) , contiguous :: sindex(:)
6632 integer(IK) , intent(out) :: neval
6633 integer(IK) , intent(out) :: nint
6634 integer(IK) :: err
6635 end function
6636#endif
6637
6638#if RK1_ENABLED
6639 module function QAGD_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6641 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK1
6642#endif
6643 use pm_kind, only: RKC => RK1
6644 procedure(real(RKC)) :: getFunc
6645 real(RKC) , intent(in) :: lb
6646 type(pinf_type) , intent(in) :: ub
6647 real(RKC) , intent(in) :: abstol
6648 real(RKC) , intent(in) :: reltol
6649 type(GK31_type) , intent(in) :: qrule
6650 real(RKC) , intent(out) :: integral, abserr
6651 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6652 integer(IK) , intent(out) , contiguous :: sindex(:)
6653 integer(IK) , intent(out) :: neval
6654 integer(IK) , intent(out) :: nint
6655 integer(IK) :: err
6656 end function
6657#endif
6658
6659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6660
6661#if RK5_ENABLED
6662 module function QAGD_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK5
6665#endif
6666 use pm_kind, only: RKC => RK5
6667 procedure(real(RKC)) :: getFunc
6668 type(ninf_type) , intent(in) :: lb
6669 real(RKC) , intent(in) :: ub
6670 real(RKC) , intent(in) :: abstol
6671 real(RKC) , intent(in) :: reltol
6672 type(GK31_type) , intent(in) :: qrule
6673 real(RKC) , intent(out) :: integral, abserr
6674 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6675 integer(IK) , intent(out) , contiguous :: sindex(:)
6676 integer(IK) , intent(out) :: neval
6677 integer(IK) , intent(out) :: nint
6678 integer(IK) :: err
6679 end function
6680#endif
6681
6682#if RK4_ENABLED
6683 module function QAGD_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6685 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK4
6686#endif
6687 use pm_kind, only: RKC => RK4
6688 procedure(real(RKC)) :: getFunc
6689 type(ninf_type) , intent(in) :: lb
6690 real(RKC) , intent(in) :: ub
6691 real(RKC) , intent(in) :: abstol
6692 real(RKC) , intent(in) :: reltol
6693 type(GK31_type) , intent(in) :: qrule
6694 real(RKC) , intent(out) :: integral, abserr
6695 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6696 integer(IK) , intent(out) , contiguous :: sindex(:)
6697 integer(IK) , intent(out) :: neval
6698 integer(IK) , intent(out) :: nint
6699 integer(IK) :: err
6700 end function
6701#endif
6702
6703#if RK3_ENABLED
6704 module function QAGD_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK3
6707#endif
6708 use pm_kind, only: RKC => RK3
6709 procedure(real(RKC)) :: getFunc
6710 type(ninf_type) , intent(in) :: lb
6711 real(RKC) , intent(in) :: ub
6712 real(RKC) , intent(in) :: abstol
6713 real(RKC) , intent(in) :: reltol
6714 type(GK31_type) , intent(in) :: qrule
6715 real(RKC) , intent(out) :: integral, abserr
6716 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6717 integer(IK) , intent(out) , contiguous :: sindex(:)
6718 integer(IK) , intent(out) :: neval
6719 integer(IK) , intent(out) :: nint
6720 integer(IK) :: err
6721 end function
6722#endif
6723
6724#if RK2_ENABLED
6725 module function QAGD_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6727 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK2
6728#endif
6729 use pm_kind, only: RKC => RK2
6730 procedure(real(RKC)) :: getFunc
6731 type(ninf_type) , intent(in) :: lb
6732 real(RKC) , intent(in) :: ub
6733 real(RKC) , intent(in) :: abstol
6734 real(RKC) , intent(in) :: reltol
6735 type(GK31_type) , intent(in) :: qrule
6736 real(RKC) , intent(out) :: integral, abserr
6737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6738 integer(IK) , intent(out) , contiguous :: sindex(:)
6739 integer(IK) , intent(out) :: neval
6740 integer(IK) , intent(out) :: nint
6741 integer(IK) :: err
6742 end function
6743#endif
6744
6745#if RK1_ENABLED
6746 module function QAGD_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK1
6749#endif
6750 use pm_kind, only: RKC => RK1
6751 procedure(real(RKC)) :: getFunc
6752 type(ninf_type) , intent(in) :: lb
6753 real(RKC) , intent(in) :: ub
6754 real(RKC) , intent(in) :: abstol
6755 real(RKC) , intent(in) :: reltol
6756 type(GK31_type) , intent(in) :: qrule
6757 real(RKC) , intent(out) :: integral, abserr
6758 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6759 integer(IK) , intent(out) , contiguous :: sindex(:)
6760 integer(IK) , intent(out) :: neval
6761 integer(IK) , intent(out) :: nint
6762 integer(IK) :: err
6763 end function
6764#endif
6765
6766 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6767
6768#if RK5_ENABLED
6769 module function QAGD_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6771 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK5
6772#endif
6773 use pm_kind, only: RKC => RK5
6774 procedure(real(RKC)) :: getFunc
6775 type(ninf_type) , intent(in) :: lb
6776 type(pinf_type) , intent(in) :: ub
6777 real(RKC) , intent(in) :: abstol
6778 real(RKC) , intent(in) :: reltol
6779 type(GK31_type) , intent(in) :: qrule
6780 real(RKC) , intent(out) :: integral, abserr
6781 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6782 integer(IK) , intent(out) , contiguous :: sindex(:)
6783 integer(IK) , intent(out) :: neval
6784 integer(IK) , intent(out) :: nint
6785 integer(IK) :: err
6786 end function
6787#endif
6788
6789#if RK4_ENABLED
6790 module function QAGD_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK4
6793#endif
6794 use pm_kind, only: RKC => RK4
6795 procedure(real(RKC)) :: getFunc
6796 type(ninf_type) , intent(in) :: lb
6797 type(pinf_type) , intent(in) :: ub
6798 real(RKC) , intent(in) :: abstol
6799 real(RKC) , intent(in) :: reltol
6800 type(GK31_type) , intent(in) :: qrule
6801 real(RKC) , intent(out) :: integral, abserr
6802 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6803 integer(IK) , intent(out) , contiguous :: sindex(:)
6804 integer(IK) , intent(out) :: neval
6805 integer(IK) , intent(out) :: nint
6806 integer(IK) :: err
6807 end function
6808#endif
6809
6810#if RK3_ENABLED
6811 module function QAGD_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6813 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK3
6814#endif
6815 use pm_kind, only: RKC => RK3
6816 procedure(real(RKC)) :: getFunc
6817 type(ninf_type) , intent(in) :: lb
6818 type(pinf_type) , intent(in) :: ub
6819 real(RKC) , intent(in) :: abstol
6820 real(RKC) , intent(in) :: reltol
6821 type(GK31_type) , intent(in) :: qrule
6822 real(RKC) , intent(out) :: integral, abserr
6823 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6824 integer(IK) , intent(out) , contiguous :: sindex(:)
6825 integer(IK) , intent(out) :: neval
6826 integer(IK) , intent(out) :: nint
6827 integer(IK) :: err
6828 end function
6829#endif
6830
6831#if RK2_ENABLED
6832 module function QAGD_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK2
6835#endif
6836 use pm_kind, only: RKC => RK2
6837 procedure(real(RKC)) :: getFunc
6838 type(ninf_type) , intent(in) :: lb
6839 type(pinf_type) , intent(in) :: ub
6840 real(RKC) , intent(in) :: abstol
6841 real(RKC) , intent(in) :: reltol
6842 type(GK31_type) , intent(in) :: qrule
6843 real(RKC) , intent(out) :: integral, abserr
6844 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6845 integer(IK) , intent(out) , contiguous :: sindex(:)
6846 integer(IK) , intent(out) :: neval
6847 integer(IK) , intent(out) :: nint
6848 integer(IK) :: err
6849 end function
6850#endif
6851
6852#if RK1_ENABLED
6853 module function QAGD_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6855 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK1
6856#endif
6857 use pm_kind, only: RKC => RK1
6858 procedure(real(RKC)) :: getFunc
6859 type(ninf_type) , intent(in) :: lb
6860 type(pinf_type) , intent(in) :: ub
6861 real(RKC) , intent(in) :: abstol
6862 real(RKC) , intent(in) :: reltol
6863 type(GK31_type) , intent(in) :: qrule
6864 real(RKC) , intent(out) :: integral, abserr
6865 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6866 integer(IK) , intent(out) , contiguous :: sindex(:)
6867 integer(IK) , intent(out) :: neval
6868 integer(IK) , intent(out) :: nint
6869 integer(IK) :: err
6870 end function
6871#endif
6872
6873 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6874
6875 end interface
6876
6877 ! QAGD_GK41
6878
6879 interface getQuadErr
6880
6881 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6882
6883#if RK5_ENABLED
6884 module function QAGD_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6886 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK5
6887#endif
6888 use pm_kind, only: RKC => RK5
6889 procedure(real(RKC)) :: getFunc
6890 real(RKC) , intent(in) :: lb
6891 real(RKC) , intent(in) :: ub
6892 real(RKC) , intent(in) :: abstol
6893 real(RKC) , intent(in) :: reltol
6894 type(GK41_type) , intent(in) :: qrule
6895 real(RKC) , intent(out) :: integral, abserr
6896 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6897 integer(IK) , intent(out) , contiguous :: sindex(:)
6898 integer(IK) , intent(out) :: neval
6899 integer(IK) , intent(out) :: nint
6900 integer(IK) :: err
6901 end function
6902#endif
6903
6904#if RK4_ENABLED
6905 module function QAGD_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6907 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK4
6908#endif
6909 use pm_kind, only: RKC => RK4
6910 procedure(real(RKC)) :: getFunc
6911 real(RKC) , intent(in) :: lb
6912 real(RKC) , intent(in) :: ub
6913 real(RKC) , intent(in) :: abstol
6914 real(RKC) , intent(in) :: reltol
6915 type(GK41_type) , intent(in) :: qrule
6916 real(RKC) , intent(out) :: integral, abserr
6917 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6918 integer(IK) , intent(out) , contiguous :: sindex(:)
6919 integer(IK) , intent(out) :: neval
6920 integer(IK) , intent(out) :: nint
6921 integer(IK) :: err
6922 end function
6923#endif
6924
6925#if RK3_ENABLED
6926 module function QAGD_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6928 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK3
6929#endif
6930 use pm_kind, only: RKC => RK3
6931 procedure(real(RKC)) :: getFunc
6932 real(RKC) , intent(in) :: lb
6933 real(RKC) , intent(in) :: ub
6934 real(RKC) , intent(in) :: abstol
6935 real(RKC) , intent(in) :: reltol
6936 type(GK41_type) , intent(in) :: qrule
6937 real(RKC) , intent(out) :: integral, abserr
6938 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6939 integer(IK) , intent(out) , contiguous :: sindex(:)
6940 integer(IK) , intent(out) :: neval
6941 integer(IK) , intent(out) :: nint
6942 integer(IK) :: err
6943 end function
6944#endif
6945
6946#if RK2_ENABLED
6947 module function QAGD_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6949 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK2
6950#endif
6951 use pm_kind, only: RKC => RK2
6952 procedure(real(RKC)) :: getFunc
6953 real(RKC) , intent(in) :: lb
6954 real(RKC) , intent(in) :: ub
6955 real(RKC) , intent(in) :: abstol
6956 real(RKC) , intent(in) :: reltol
6957 type(GK41_type) , intent(in) :: qrule
6958 real(RKC) , intent(out) :: integral, abserr
6959 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6960 integer(IK) , intent(out) , contiguous :: sindex(:)
6961 integer(IK) , intent(out) :: neval
6962 integer(IK) , intent(out) :: nint
6963 integer(IK) :: err
6964 end function
6965#endif
6966
6967#if RK1_ENABLED
6968 module function QAGD_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6970 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK1
6971#endif
6972 use pm_kind, only: RKC => RK1
6973 procedure(real(RKC)) :: getFunc
6974 real(RKC) , intent(in) :: lb
6975 real(RKC) , intent(in) :: ub
6976 real(RKC) , intent(in) :: abstol
6977 real(RKC) , intent(in) :: reltol
6978 type(GK41_type) , intent(in) :: qrule
6979 real(RKC) , intent(out) :: integral, abserr
6980 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6981 integer(IK) , intent(out) , contiguous :: sindex(:)
6982 integer(IK) , intent(out) :: neval
6983 integer(IK) , intent(out) :: nint
6984 integer(IK) :: err
6985 end function
6986#endif
6987
6988 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6989
6990#if RK5_ENABLED
6991 module function QAGD_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6993 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK5
6994#endif
6995 use pm_kind, only: RKC => RK5
6996 procedure(real(RKC)) :: getFunc
6997 real(RKC) , intent(in) :: lb
6998 type(pinf_type) , intent(in) :: ub
6999 real(RKC) , intent(in) :: abstol
7000 real(RKC) , intent(in) :: reltol
7001 type(GK41_type) , intent(in) :: qrule
7002 real(RKC) , intent(out) :: integral, abserr
7003 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7004 integer(IK) , intent(out) , contiguous :: sindex(:)
7005 integer(IK) , intent(out) :: neval
7006 integer(IK) , intent(out) :: nint
7007 integer(IK) :: err
7008 end function
7009#endif
7010
7011#if RK4_ENABLED
7012 module function QAGD_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK4
7015#endif
7016 use pm_kind, only: RKC => RK4
7017 procedure(real(RKC)) :: getFunc
7018 real(RKC) , intent(in) :: lb
7019 type(pinf_type) , intent(in) :: ub
7020 real(RKC) , intent(in) :: abstol
7021 real(RKC) , intent(in) :: reltol
7022 type(GK41_type) , intent(in) :: qrule
7023 real(RKC) , intent(out) :: integral, abserr
7024 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7025 integer(IK) , intent(out) , contiguous :: sindex(:)
7026 integer(IK) , intent(out) :: neval
7027 integer(IK) , intent(out) :: nint
7028 integer(IK) :: err
7029 end function
7030#endif
7031
7032#if RK3_ENABLED
7033 module function QAGD_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7035 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK3
7036#endif
7037 use pm_kind, only: RKC => RK3
7038 procedure(real(RKC)) :: getFunc
7039 real(RKC) , intent(in) :: lb
7040 type(pinf_type) , intent(in) :: ub
7041 real(RKC) , intent(in) :: abstol
7042 real(RKC) , intent(in) :: reltol
7043 type(GK41_type) , intent(in) :: qrule
7044 real(RKC) , intent(out) :: integral, abserr
7045 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7046 integer(IK) , intent(out) , contiguous :: sindex(:)
7047 integer(IK) , intent(out) :: neval
7048 integer(IK) , intent(out) :: nint
7049 integer(IK) :: err
7050 end function
7051#endif
7052
7053#if RK2_ENABLED
7054 module function QAGD_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK2
7057#endif
7058 use pm_kind, only: RKC => RK2
7059 procedure(real(RKC)) :: getFunc
7060 real(RKC) , intent(in) :: lb
7061 type(pinf_type) , intent(in) :: ub
7062 real(RKC) , intent(in) :: abstol
7063 real(RKC) , intent(in) :: reltol
7064 type(GK41_type) , intent(in) :: qrule
7065 real(RKC) , intent(out) :: integral, abserr
7066 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7067 integer(IK) , intent(out) , contiguous :: sindex(:)
7068 integer(IK) , intent(out) :: neval
7069 integer(IK) , intent(out) :: nint
7070 integer(IK) :: err
7071 end function
7072#endif
7073
7074#if RK1_ENABLED
7075 module function QAGD_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7077 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK1
7078#endif
7079 use pm_kind, only: RKC => RK1
7080 procedure(real(RKC)) :: getFunc
7081 real(RKC) , intent(in) :: lb
7082 type(pinf_type) , intent(in) :: ub
7083 real(RKC) , intent(in) :: abstol
7084 real(RKC) , intent(in) :: reltol
7085 type(GK41_type) , intent(in) :: qrule
7086 real(RKC) , intent(out) :: integral, abserr
7087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7088 integer(IK) , intent(out) , contiguous :: sindex(:)
7089 integer(IK) , intent(out) :: neval
7090 integer(IK) , intent(out) :: nint
7091 integer(IK) :: err
7092 end function
7093#endif
7094
7095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7096
7097#if RK5_ENABLED
7098 module function QAGD_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7100 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK5
7101#endif
7102 use pm_kind, only: RKC => RK5
7103 procedure(real(RKC)) :: getFunc
7104 type(ninf_type) , intent(in) :: lb
7105 real(RKC) , intent(in) :: ub
7106 real(RKC) , intent(in) :: abstol
7107 real(RKC) , intent(in) :: reltol
7108 type(GK41_type) , intent(in) :: qrule
7109 real(RKC) , intent(out) :: integral, abserr
7110 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7111 integer(IK) , intent(out) , contiguous :: sindex(:)
7112 integer(IK) , intent(out) :: neval
7113 integer(IK) , intent(out) :: nint
7114 integer(IK) :: err
7115 end function
7116#endif
7117
7118#if RK4_ENABLED
7119 module function QAGD_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7121 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK4
7122#endif
7123 use pm_kind, only: RKC => RK4
7124 procedure(real(RKC)) :: getFunc
7125 type(ninf_type) , intent(in) :: lb
7126 real(RKC) , intent(in) :: ub
7127 real(RKC) , intent(in) :: abstol
7128 real(RKC) , intent(in) :: reltol
7129 type(GK41_type) , intent(in) :: qrule
7130 real(RKC) , intent(out) :: integral, abserr
7131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7132 integer(IK) , intent(out) , contiguous :: sindex(:)
7133 integer(IK) , intent(out) :: neval
7134 integer(IK) , intent(out) :: nint
7135 integer(IK) :: err
7136 end function
7137#endif
7138
7139#if RK3_ENABLED
7140 module function QAGD_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK3
7143#endif
7144 use pm_kind, only: RKC => RK3
7145 procedure(real(RKC)) :: getFunc
7146 type(ninf_type) , intent(in) :: lb
7147 real(RKC) , intent(in) :: ub
7148 real(RKC) , intent(in) :: abstol
7149 real(RKC) , intent(in) :: reltol
7150 type(GK41_type) , intent(in) :: qrule
7151 real(RKC) , intent(out) :: integral, abserr
7152 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7153 integer(IK) , intent(out) , contiguous :: sindex(:)
7154 integer(IK) , intent(out) :: neval
7155 integer(IK) , intent(out) :: nint
7156 integer(IK) :: err
7157 end function
7158#endif
7159
7160#if RK2_ENABLED
7161 module function QAGD_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7163 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK2
7164#endif
7165 use pm_kind, only: RKC => RK2
7166 procedure(real(RKC)) :: getFunc
7167 type(ninf_type) , intent(in) :: lb
7168 real(RKC) , intent(in) :: ub
7169 real(RKC) , intent(in) :: abstol
7170 real(RKC) , intent(in) :: reltol
7171 type(GK41_type) , intent(in) :: qrule
7172 real(RKC) , intent(out) :: integral, abserr
7173 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7174 integer(IK) , intent(out) , contiguous :: sindex(:)
7175 integer(IK) , intent(out) :: neval
7176 integer(IK) , intent(out) :: nint
7177 integer(IK) :: err
7178 end function
7179#endif
7180
7181#if RK1_ENABLED
7182 module function QAGD_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7184 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK1
7185#endif
7186 use pm_kind, only: RKC => RK1
7187 procedure(real(RKC)) :: getFunc
7188 type(ninf_type) , intent(in) :: lb
7189 real(RKC) , intent(in) :: ub
7190 real(RKC) , intent(in) :: abstol
7191 real(RKC) , intent(in) :: reltol
7192 type(GK41_type) , intent(in) :: qrule
7193 real(RKC) , intent(out) :: integral, abserr
7194 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7195 integer(IK) , intent(out) , contiguous :: sindex(:)
7196 integer(IK) , intent(out) :: neval
7197 integer(IK) , intent(out) :: nint
7198 integer(IK) :: err
7199 end function
7200#endif
7201
7202 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7203
7204#if RK5_ENABLED
7205 module function QAGD_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7207 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK5
7208#endif
7209 use pm_kind, only: RKC => RK5
7210 procedure(real(RKC)) :: getFunc
7211 type(ninf_type) , intent(in) :: lb
7212 type(pinf_type) , intent(in) :: ub
7213 real(RKC) , intent(in) :: abstol
7214 real(RKC) , intent(in) :: reltol
7215 type(GK41_type) , intent(in) :: qrule
7216 real(RKC) , intent(out) :: integral, abserr
7217 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7218 integer(IK) , intent(out) , contiguous :: sindex(:)
7219 integer(IK) , intent(out) :: neval
7220 integer(IK) , intent(out) :: nint
7221 integer(IK) :: err
7222 end function
7223#endif
7224
7225#if RK4_ENABLED
7226 module function QAGD_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7228 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK4
7229#endif
7230 use pm_kind, only: RKC => RK4
7231 procedure(real(RKC)) :: getFunc
7232 type(ninf_type) , intent(in) :: lb
7233 type(pinf_type) , intent(in) :: ub
7234 real(RKC) , intent(in) :: abstol
7235 real(RKC) , intent(in) :: reltol
7236 type(GK41_type) , intent(in) :: qrule
7237 real(RKC) , intent(out) :: integral, abserr
7238 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7239 integer(IK) , intent(out) , contiguous :: sindex(:)
7240 integer(IK) , intent(out) :: neval
7241 integer(IK) , intent(out) :: nint
7242 integer(IK) :: err
7243 end function
7244#endif
7245
7246#if RK3_ENABLED
7247 module function QAGD_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7249 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK3
7250#endif
7251 use pm_kind, only: RKC => RK3
7252 procedure(real(RKC)) :: getFunc
7253 type(ninf_type) , intent(in) :: lb
7254 type(pinf_type) , intent(in) :: ub
7255 real(RKC) , intent(in) :: abstol
7256 real(RKC) , intent(in) :: reltol
7257 type(GK41_type) , intent(in) :: qrule
7258 real(RKC) , intent(out) :: integral, abserr
7259 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7260 integer(IK) , intent(out) , contiguous :: sindex(:)
7261 integer(IK) , intent(out) :: neval
7262 integer(IK) , intent(out) :: nint
7263 integer(IK) :: err
7264 end function
7265#endif
7266
7267#if RK2_ENABLED
7268 module function QAGD_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK2
7271#endif
7272 use pm_kind, only: RKC => RK2
7273 procedure(real(RKC)) :: getFunc
7274 type(ninf_type) , intent(in) :: lb
7275 type(pinf_type) , intent(in) :: ub
7276 real(RKC) , intent(in) :: abstol
7277 real(RKC) , intent(in) :: reltol
7278 type(GK41_type) , intent(in) :: qrule
7279 real(RKC) , intent(out) :: integral, abserr
7280 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7281 integer(IK) , intent(out) , contiguous :: sindex(:)
7282 integer(IK) , intent(out) :: neval
7283 integer(IK) , intent(out) :: nint
7284 integer(IK) :: err
7285 end function
7286#endif
7287
7288#if RK1_ENABLED
7289 module function QAGD_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7291 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK1
7292#endif
7293 use pm_kind, only: RKC => RK1
7294 procedure(real(RKC)) :: getFunc
7295 type(ninf_type) , intent(in) :: lb
7296 type(pinf_type) , intent(in) :: ub
7297 real(RKC) , intent(in) :: abstol
7298 real(RKC) , intent(in) :: reltol
7299 type(GK41_type) , intent(in) :: qrule
7300 real(RKC) , intent(out) :: integral, abserr
7301 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7302 integer(IK) , intent(out) , contiguous :: sindex(:)
7303 integer(IK) , intent(out) :: neval
7304 integer(IK) , intent(out) :: nint
7305 integer(IK) :: err
7306 end function
7307#endif
7308
7309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7310
7311 end interface
7312
7313 ! QAGD_GK51
7314
7315 interface getQuadErr
7316
7317 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7318
7319#if RK5_ENABLED
7320 module function QAGD_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7322 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK5
7323#endif
7324 use pm_kind, only: RKC => RK5
7325 procedure(real(RKC)) :: getFunc
7326 real(RKC) , intent(in) :: lb
7327 real(RKC) , intent(in) :: ub
7328 real(RKC) , intent(in) :: abstol
7329 real(RKC) , intent(in) :: reltol
7330 type(GK51_type) , intent(in) :: qrule
7331 real(RKC) , intent(out) :: integral, abserr
7332 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7333 integer(IK) , intent(out) , contiguous :: sindex(:)
7334 integer(IK) , intent(out) :: neval
7335 integer(IK) , intent(out) :: nint
7336 integer(IK) :: err
7337 end function
7338#endif
7339
7340#if RK4_ENABLED
7341 module function QAGD_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7343 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK4
7344#endif
7345 use pm_kind, only: RKC => RK4
7346 procedure(real(RKC)) :: getFunc
7347 real(RKC) , intent(in) :: lb
7348 real(RKC) , intent(in) :: ub
7349 real(RKC) , intent(in) :: abstol
7350 real(RKC) , intent(in) :: reltol
7351 type(GK51_type) , intent(in) :: qrule
7352 real(RKC) , intent(out) :: integral, abserr
7353 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7354 integer(IK) , intent(out) , contiguous :: sindex(:)
7355 integer(IK) , intent(out) :: neval
7356 integer(IK) , intent(out) :: nint
7357 integer(IK) :: err
7358 end function
7359#endif
7360
7361#if RK3_ENABLED
7362 module function QAGD_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7364 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK3
7365#endif
7366 use pm_kind, only: RKC => RK3
7367 procedure(real(RKC)) :: getFunc
7368 real(RKC) , intent(in) :: lb
7369 real(RKC) , intent(in) :: ub
7370 real(RKC) , intent(in) :: abstol
7371 real(RKC) , intent(in) :: reltol
7372 type(GK51_type) , intent(in) :: qrule
7373 real(RKC) , intent(out) :: integral, abserr
7374 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7375 integer(IK) , intent(out) , contiguous :: sindex(:)
7376 integer(IK) , intent(out) :: neval
7377 integer(IK) , intent(out) :: nint
7378 integer(IK) :: err
7379 end function
7380#endif
7381
7382#if RK2_ENABLED
7383 module function QAGD_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7385 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK2
7386#endif
7387 use pm_kind, only: RKC => RK2
7388 procedure(real(RKC)) :: getFunc
7389 real(RKC) , intent(in) :: lb
7390 real(RKC) , intent(in) :: ub
7391 real(RKC) , intent(in) :: abstol
7392 real(RKC) , intent(in) :: reltol
7393 type(GK51_type) , intent(in) :: qrule
7394 real(RKC) , intent(out) :: integral, abserr
7395 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7396 integer(IK) , intent(out) , contiguous :: sindex(:)
7397 integer(IK) , intent(out) :: neval
7398 integer(IK) , intent(out) :: nint
7399 integer(IK) :: err
7400 end function
7401#endif
7402
7403#if RK1_ENABLED
7404 module function QAGD_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7406 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK1
7407#endif
7408 use pm_kind, only: RKC => RK1
7409 procedure(real(RKC)) :: getFunc
7410 real(RKC) , intent(in) :: lb
7411 real(RKC) , intent(in) :: ub
7412 real(RKC) , intent(in) :: abstol
7413 real(RKC) , intent(in) :: reltol
7414 type(GK51_type) , intent(in) :: qrule
7415 real(RKC) , intent(out) :: integral, abserr
7416 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7417 integer(IK) , intent(out) , contiguous :: sindex(:)
7418 integer(IK) , intent(out) :: neval
7419 integer(IK) , intent(out) :: nint
7420 integer(IK) :: err
7421 end function
7422#endif
7423
7424 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7425
7426#if RK5_ENABLED
7427 module function QAGD_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7429 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK5
7430#endif
7431 use pm_kind, only: RKC => RK5
7432 procedure(real(RKC)) :: getFunc
7433 real(RKC) , intent(in) :: lb
7434 type(pinf_type) , intent(in) :: ub
7435 real(RKC) , intent(in) :: abstol
7436 real(RKC) , intent(in) :: reltol
7437 type(GK51_type) , intent(in) :: qrule
7438 real(RKC) , intent(out) :: integral, abserr
7439 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7440 integer(IK) , intent(out) , contiguous :: sindex(:)
7441 integer(IK) , intent(out) :: neval
7442 integer(IK) , intent(out) :: nint
7443 integer(IK) :: err
7444 end function
7445#endif
7446
7447#if RK4_ENABLED
7448 module function QAGD_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7450 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK4
7451#endif
7452 use pm_kind, only: RKC => RK4
7453 procedure(real(RKC)) :: getFunc
7454 real(RKC) , intent(in) :: lb
7455 type(pinf_type) , intent(in) :: ub
7456 real(RKC) , intent(in) :: abstol
7457 real(RKC) , intent(in) :: reltol
7458 type(GK51_type) , intent(in) :: qrule
7459 real(RKC) , intent(out) :: integral, abserr
7460 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7461 integer(IK) , intent(out) , contiguous :: sindex(:)
7462 integer(IK) , intent(out) :: neval
7463 integer(IK) , intent(out) :: nint
7464 integer(IK) :: err
7465 end function
7466#endif
7467
7468#if RK3_ENABLED
7469 module function QAGD_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7471 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK3
7472#endif
7473 use pm_kind, only: RKC => RK3
7474 procedure(real(RKC)) :: getFunc
7475 real(RKC) , intent(in) :: lb
7476 type(pinf_type) , intent(in) :: ub
7477 real(RKC) , intent(in) :: abstol
7478 real(RKC) , intent(in) :: reltol
7479 type(GK51_type) , intent(in) :: qrule
7480 real(RKC) , intent(out) :: integral, abserr
7481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7482 integer(IK) , intent(out) , contiguous :: sindex(:)
7483 integer(IK) , intent(out) :: neval
7484 integer(IK) , intent(out) :: nint
7485 integer(IK) :: err
7486 end function
7487#endif
7488
7489#if RK2_ENABLED
7490 module function QAGD_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7492 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK2
7493#endif
7494 use pm_kind, only: RKC => RK2
7495 procedure(real(RKC)) :: getFunc
7496 real(RKC) , intent(in) :: lb
7497 type(pinf_type) , intent(in) :: ub
7498 real(RKC) , intent(in) :: abstol
7499 real(RKC) , intent(in) :: reltol
7500 type(GK51_type) , intent(in) :: qrule
7501 real(RKC) , intent(out) :: integral, abserr
7502 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7503 integer(IK) , intent(out) , contiguous :: sindex(:)
7504 integer(IK) , intent(out) :: neval
7505 integer(IK) , intent(out) :: nint
7506 integer(IK) :: err
7507 end function
7508#endif
7509
7510#if RK1_ENABLED
7511 module function QAGD_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7513 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK1
7514#endif
7515 use pm_kind, only: RKC => RK1
7516 procedure(real(RKC)) :: getFunc
7517 real(RKC) , intent(in) :: lb
7518 type(pinf_type) , intent(in) :: ub
7519 real(RKC) , intent(in) :: abstol
7520 real(RKC) , intent(in) :: reltol
7521 type(GK51_type) , intent(in) :: qrule
7522 real(RKC) , intent(out) :: integral, abserr
7523 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7524 integer(IK) , intent(out) , contiguous :: sindex(:)
7525 integer(IK) , intent(out) :: neval
7526 integer(IK) , intent(out) :: nint
7527 integer(IK) :: err
7528 end function
7529#endif
7530
7531 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7532
7533#if RK5_ENABLED
7534 module function QAGD_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7536 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK5
7537#endif
7538 use pm_kind, only: RKC => RK5
7539 procedure(real(RKC)) :: getFunc
7540 type(ninf_type) , intent(in) :: lb
7541 real(RKC) , intent(in) :: ub
7542 real(RKC) , intent(in) :: abstol
7543 real(RKC) , intent(in) :: reltol
7544 type(GK51_type) , intent(in) :: qrule
7545 real(RKC) , intent(out) :: integral, abserr
7546 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7547 integer(IK) , intent(out) , contiguous :: sindex(:)
7548 integer(IK) , intent(out) :: neval
7549 integer(IK) , intent(out) :: nint
7550 integer(IK) :: err
7551 end function
7552#endif
7553
7554#if RK4_ENABLED
7555 module function QAGD_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7557 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK4
7558#endif
7559 use pm_kind, only: RKC => RK4
7560 procedure(real(RKC)) :: getFunc
7561 type(ninf_type) , intent(in) :: lb
7562 real(RKC) , intent(in) :: ub
7563 real(RKC) , intent(in) :: abstol
7564 real(RKC) , intent(in) :: reltol
7565 type(GK51_type) , intent(in) :: qrule
7566 real(RKC) , intent(out) :: integral, abserr
7567 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7568 integer(IK) , intent(out) , contiguous :: sindex(:)
7569 integer(IK) , intent(out) :: neval
7570 integer(IK) , intent(out) :: nint
7571 integer(IK) :: err
7572 end function
7573#endif
7574
7575#if RK3_ENABLED
7576 module function QAGD_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK3
7579#endif
7580 use pm_kind, only: RKC => RK3
7581 procedure(real(RKC)) :: getFunc
7582 type(ninf_type) , intent(in) :: lb
7583 real(RKC) , intent(in) :: ub
7584 real(RKC) , intent(in) :: abstol
7585 real(RKC) , intent(in) :: reltol
7586 type(GK51_type) , intent(in) :: qrule
7587 real(RKC) , intent(out) :: integral, abserr
7588 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7589 integer(IK) , intent(out) , contiguous :: sindex(:)
7590 integer(IK) , intent(out) :: neval
7591 integer(IK) , intent(out) :: nint
7592 integer(IK) :: err
7593 end function
7594#endif
7595
7596#if RK2_ENABLED
7597 module function QAGD_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7599 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK2
7600#endif
7601 use pm_kind, only: RKC => RK2
7602 procedure(real(RKC)) :: getFunc
7603 type(ninf_type) , intent(in) :: lb
7604 real(RKC) , intent(in) :: ub
7605 real(RKC) , intent(in) :: abstol
7606 real(RKC) , intent(in) :: reltol
7607 type(GK51_type) , intent(in) :: qrule
7608 real(RKC) , intent(out) :: integral, abserr
7609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7610 integer(IK) , intent(out) , contiguous :: sindex(:)
7611 integer(IK) , intent(out) :: neval
7612 integer(IK) , intent(out) :: nint
7613 integer(IK) :: err
7614 end function
7615#endif
7616
7617#if RK1_ENABLED
7618 module function QAGD_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK1
7621#endif
7622 use pm_kind, only: RKC => RK1
7623 procedure(real(RKC)) :: getFunc
7624 type(ninf_type) , intent(in) :: lb
7625 real(RKC) , intent(in) :: ub
7626 real(RKC) , intent(in) :: abstol
7627 real(RKC) , intent(in) :: reltol
7628 type(GK51_type) , intent(in) :: qrule
7629 real(RKC) , intent(out) :: integral, abserr
7630 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7631 integer(IK) , intent(out) , contiguous :: sindex(:)
7632 integer(IK) , intent(out) :: neval
7633 integer(IK) , intent(out) :: nint
7634 integer(IK) :: err
7635 end function
7636#endif
7637
7638 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7639
7640#if RK5_ENABLED
7641 module function QAGD_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7643 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK5
7644#endif
7645 use pm_kind, only: RKC => RK5
7646 procedure(real(RKC)) :: getFunc
7647 type(ninf_type) , intent(in) :: lb
7648 type(pinf_type) , intent(in) :: ub
7649 real(RKC) , intent(in) :: abstol
7650 real(RKC) , intent(in) :: reltol
7651 type(GK51_type) , intent(in) :: qrule
7652 real(RKC) , intent(out) :: integral, abserr
7653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7654 integer(IK) , intent(out) , contiguous :: sindex(:)
7655 integer(IK) , intent(out) :: neval
7656 integer(IK) , intent(out) :: nint
7657 integer(IK) :: err
7658 end function
7659#endif
7660
7661#if RK4_ENABLED
7662 module function QAGD_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK4
7665#endif
7666 use pm_kind, only: RKC => RK4
7667 procedure(real(RKC)) :: getFunc
7668 type(ninf_type) , intent(in) :: lb
7669 type(pinf_type) , intent(in) :: ub
7670 real(RKC) , intent(in) :: abstol
7671 real(RKC) , intent(in) :: reltol
7672 type(GK51_type) , intent(in) :: qrule
7673 real(RKC) , intent(out) :: integral, abserr
7674 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7675 integer(IK) , intent(out) , contiguous :: sindex(:)
7676 integer(IK) , intent(out) :: neval
7677 integer(IK) , intent(out) :: nint
7678 integer(IK) :: err
7679 end function
7680#endif
7681
7682#if RK3_ENABLED
7683 module function QAGD_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7685 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK3
7686#endif
7687 use pm_kind, only: RKC => RK3
7688 procedure(real(RKC)) :: getFunc
7689 type(ninf_type) , intent(in) :: lb
7690 type(pinf_type) , intent(in) :: ub
7691 real(RKC) , intent(in) :: abstol
7692 real(RKC) , intent(in) :: reltol
7693 type(GK51_type) , intent(in) :: qrule
7694 real(RKC) , intent(out) :: integral, abserr
7695 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7696 integer(IK) , intent(out) , contiguous :: sindex(:)
7697 integer(IK) , intent(out) :: neval
7698 integer(IK) , intent(out) :: nint
7699 integer(IK) :: err
7700 end function
7701#endif
7702
7703#if RK2_ENABLED
7704 module function QAGD_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK2
7707#endif
7708 use pm_kind, only: RKC => RK2
7709 procedure(real(RKC)) :: getFunc
7710 type(ninf_type) , intent(in) :: lb
7711 type(pinf_type) , intent(in) :: ub
7712 real(RKC) , intent(in) :: abstol
7713 real(RKC) , intent(in) :: reltol
7714 type(GK51_type) , intent(in) :: qrule
7715 real(RKC) , intent(out) :: integral, abserr
7716 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7717 integer(IK) , intent(out) , contiguous :: sindex(:)
7718 integer(IK) , intent(out) :: neval
7719 integer(IK) , intent(out) :: nint
7720 integer(IK) :: err
7721 end function
7722#endif
7723
7724#if RK1_ENABLED
7725 module function QAGD_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7727 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK1
7728#endif
7729 use pm_kind, only: RKC => RK1
7730 procedure(real(RKC)) :: getFunc
7731 type(ninf_type) , intent(in) :: lb
7732 type(pinf_type) , intent(in) :: ub
7733 real(RKC) , intent(in) :: abstol
7734 real(RKC) , intent(in) :: reltol
7735 type(GK51_type) , intent(in) :: qrule
7736 real(RKC) , intent(out) :: integral, abserr
7737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7738 integer(IK) , intent(out) , contiguous :: sindex(:)
7739 integer(IK) , intent(out) :: neval
7740 integer(IK) , intent(out) :: nint
7741 integer(IK) :: err
7742 end function
7743#endif
7744
7745 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7746
7747 end interface
7748
7749 ! QAGD_GK61
7750
7751 interface getQuadErr
7752
7753 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7754
7755#if RK5_ENABLED
7756 module function QAGD_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7758 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK5
7759#endif
7760 use pm_kind, only: RKC => RK5
7761 procedure(real(RKC)) :: getFunc
7762 real(RKC) , intent(in) :: lb
7763 real(RKC) , intent(in) :: ub
7764 real(RKC) , intent(in) :: abstol
7765 real(RKC) , intent(in) :: reltol
7766 type(GK61_type) , intent(in) :: qrule
7767 real(RKC) , intent(out) :: integral, abserr
7768 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7769 integer(IK) , intent(out) , contiguous :: sindex(:)
7770 integer(IK) , intent(out) :: neval
7771 integer(IK) , intent(out) :: nint
7772 integer(IK) :: err
7773 end function
7774#endif
7775
7776#if RK4_ENABLED
7777 module function QAGD_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7779 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK4
7780#endif
7781 use pm_kind, only: RKC => RK4
7782 procedure(real(RKC)) :: getFunc
7783 real(RKC) , intent(in) :: lb
7784 real(RKC) , intent(in) :: ub
7785 real(RKC) , intent(in) :: abstol
7786 real(RKC) , intent(in) :: reltol
7787 type(GK61_type) , intent(in) :: qrule
7788 real(RKC) , intent(out) :: integral, abserr
7789 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7790 integer(IK) , intent(out) , contiguous :: sindex(:)
7791 integer(IK) , intent(out) :: neval
7792 integer(IK) , intent(out) :: nint
7793 integer(IK) :: err
7794 end function
7795#endif
7796
7797#if RK3_ENABLED
7798 module function QAGD_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7800 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK3
7801#endif
7802 use pm_kind, only: RKC => RK3
7803 procedure(real(RKC)) :: getFunc
7804 real(RKC) , intent(in) :: lb
7805 real(RKC) , intent(in) :: ub
7806 real(RKC) , intent(in) :: abstol
7807 real(RKC) , intent(in) :: reltol
7808 type(GK61_type) , intent(in) :: qrule
7809 real(RKC) , intent(out) :: integral, abserr
7810 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7811 integer(IK) , intent(out) , contiguous :: sindex(:)
7812 integer(IK) , intent(out) :: neval
7813 integer(IK) , intent(out) :: nint
7814 integer(IK) :: err
7815 end function
7816#endif
7817
7818#if RK2_ENABLED
7819 module function QAGD_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7821 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK2
7822#endif
7823 use pm_kind, only: RKC => RK2
7824 procedure(real(RKC)) :: getFunc
7825 real(RKC) , intent(in) :: lb
7826 real(RKC) , intent(in) :: ub
7827 real(RKC) , intent(in) :: abstol
7828 real(RKC) , intent(in) :: reltol
7829 type(GK61_type) , intent(in) :: qrule
7830 real(RKC) , intent(out) :: integral, abserr
7831 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7832 integer(IK) , intent(out) , contiguous :: sindex(:)
7833 integer(IK) , intent(out) :: neval
7834 integer(IK) , intent(out) :: nint
7835 integer(IK) :: err
7836 end function
7837#endif
7838
7839#if RK1_ENABLED
7840 module function QAGD_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7842 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK1
7843#endif
7844 use pm_kind, only: RKC => RK1
7845 procedure(real(RKC)) :: getFunc
7846 real(RKC) , intent(in) :: lb
7847 real(RKC) , intent(in) :: ub
7848 real(RKC) , intent(in) :: abstol
7849 real(RKC) , intent(in) :: reltol
7850 type(GK61_type) , intent(in) :: qrule
7851 real(RKC) , intent(out) :: integral, abserr
7852 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7853 integer(IK) , intent(out) , contiguous :: sindex(:)
7854 integer(IK) , intent(out) :: neval
7855 integer(IK) , intent(out) :: nint
7856 integer(IK) :: err
7857 end function
7858#endif
7859
7860 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7861
7862#if RK5_ENABLED
7863 module function QAGD_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7865 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK5
7866#endif
7867 use pm_kind, only: RKC => RK5
7868 procedure(real(RKC)) :: getFunc
7869 real(RKC) , intent(in) :: lb
7870 type(pinf_type) , intent(in) :: ub
7871 real(RKC) , intent(in) :: abstol
7872 real(RKC) , intent(in) :: reltol
7873 type(GK61_type) , intent(in) :: qrule
7874 real(RKC) , intent(out) :: integral, abserr
7875 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7876 integer(IK) , intent(out) , contiguous :: sindex(:)
7877 integer(IK) , intent(out) :: neval
7878 integer(IK) , intent(out) :: nint
7879 integer(IK) :: err
7880 end function
7881#endif
7882
7883#if RK4_ENABLED
7884 module function QAGD_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7886 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK4
7887#endif
7888 use pm_kind, only: RKC => RK4
7889 procedure(real(RKC)) :: getFunc
7890 real(RKC) , intent(in) :: lb
7891 type(pinf_type) , intent(in) :: ub
7892 real(RKC) , intent(in) :: abstol
7893 real(RKC) , intent(in) :: reltol
7894 type(GK61_type) , intent(in) :: qrule
7895 real(RKC) , intent(out) :: integral, abserr
7896 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7897 integer(IK) , intent(out) , contiguous :: sindex(:)
7898 integer(IK) , intent(out) :: neval
7899 integer(IK) , intent(out) :: nint
7900 integer(IK) :: err
7901 end function
7902#endif
7903
7904#if RK3_ENABLED
7905 module function QAGD_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7907 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK3
7908#endif
7909 use pm_kind, only: RKC => RK3
7910 procedure(real(RKC)) :: getFunc
7911 real(RKC) , intent(in) :: lb
7912 type(pinf_type) , intent(in) :: ub
7913 real(RKC) , intent(in) :: abstol
7914 real(RKC) , intent(in) :: reltol
7915 type(GK61_type) , intent(in) :: qrule
7916 real(RKC) , intent(out) :: integral, abserr
7917 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7918 integer(IK) , intent(out) , contiguous :: sindex(:)
7919 integer(IK) , intent(out) :: neval
7920 integer(IK) , intent(out) :: nint
7921 integer(IK) :: err
7922 end function
7923#endif
7924
7925#if RK2_ENABLED
7926 module function QAGD_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7928 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK2
7929#endif
7930 use pm_kind, only: RKC => RK2
7931 procedure(real(RKC)) :: getFunc
7932 real(RKC) , intent(in) :: lb
7933 type(pinf_type) , intent(in) :: ub
7934 real(RKC) , intent(in) :: abstol
7935 real(RKC) , intent(in) :: reltol
7936 type(GK61_type) , intent(in) :: qrule
7937 real(RKC) , intent(out) :: integral, abserr
7938 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7939 integer(IK) , intent(out) , contiguous :: sindex(:)
7940 integer(IK) , intent(out) :: neval
7941 integer(IK) , intent(out) :: nint
7942 integer(IK) :: err
7943 end function
7944#endif
7945
7946#if RK1_ENABLED
7947 module function QAGD_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7949 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK1
7950#endif
7951 use pm_kind, only: RKC => RK1
7952 procedure(real(RKC)) :: getFunc
7953 real(RKC) , intent(in) :: lb
7954 type(pinf_type) , intent(in) :: ub
7955 real(RKC) , intent(in) :: abstol
7956 real(RKC) , intent(in) :: reltol
7957 type(GK61_type) , intent(in) :: qrule
7958 real(RKC) , intent(out) :: integral, abserr
7959 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7960 integer(IK) , intent(out) , contiguous :: sindex(:)
7961 integer(IK) , intent(out) :: neval
7962 integer(IK) , intent(out) :: nint
7963 integer(IK) :: err
7964 end function
7965#endif
7966
7967 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7968
7969#if RK5_ENABLED
7970 module function QAGD_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7972 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK5
7973#endif
7974 use pm_kind, only: RKC => RK5
7975 procedure(real(RKC)) :: getFunc
7976 type(ninf_type) , intent(in) :: lb
7977 real(RKC) , intent(in) :: ub
7978 real(RKC) , intent(in) :: abstol
7979 real(RKC) , intent(in) :: reltol
7980 type(GK61_type) , intent(in) :: qrule
7981 real(RKC) , intent(out) :: integral, abserr
7982 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7983 integer(IK) , intent(out) , contiguous :: sindex(:)
7984 integer(IK) , intent(out) :: neval
7985 integer(IK) , intent(out) :: nint
7986 integer(IK) :: err
7987 end function
7988#endif
7989
7990#if RK4_ENABLED
7991 module function QAGD_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7993 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK4
7994#endif
7995 use pm_kind, only: RKC => RK4
7996 procedure(real(RKC)) :: getFunc
7997 type(ninf_type) , intent(in) :: lb
7998 real(RKC) , intent(in) :: ub
7999 real(RKC) , intent(in) :: abstol
8000 real(RKC) , intent(in) :: reltol
8001 type(GK61_type) , intent(in) :: qrule
8002 real(RKC) , intent(out) :: integral, abserr
8003 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8004 integer(IK) , intent(out) , contiguous :: sindex(:)
8005 integer(IK) , intent(out) :: neval
8006 integer(IK) , intent(out) :: nint
8007 integer(IK) :: err
8008 end function
8009#endif
8010
8011#if RK3_ENABLED
8012 module function QAGD_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK3
8015#endif
8016 use pm_kind, only: RKC => RK3
8017 procedure(real(RKC)) :: getFunc
8018 type(ninf_type) , intent(in) :: lb
8019 real(RKC) , intent(in) :: ub
8020 real(RKC) , intent(in) :: abstol
8021 real(RKC) , intent(in) :: reltol
8022 type(GK61_type) , intent(in) :: qrule
8023 real(RKC) , intent(out) :: integral, abserr
8024 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8025 integer(IK) , intent(out) , contiguous :: sindex(:)
8026 integer(IK) , intent(out) :: neval
8027 integer(IK) , intent(out) :: nint
8028 integer(IK) :: err
8029 end function
8030#endif
8031
8032#if RK2_ENABLED
8033 module function QAGD_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8035 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK2
8036#endif
8037 use pm_kind, only: RKC => RK2
8038 procedure(real(RKC)) :: getFunc
8039 type(ninf_type) , intent(in) :: lb
8040 real(RKC) , intent(in) :: ub
8041 real(RKC) , intent(in) :: abstol
8042 real(RKC) , intent(in) :: reltol
8043 type(GK61_type) , intent(in) :: qrule
8044 real(RKC) , intent(out) :: integral, abserr
8045 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8046 integer(IK) , intent(out) , contiguous :: sindex(:)
8047 integer(IK) , intent(out) :: neval
8048 integer(IK) , intent(out) :: nint
8049 integer(IK) :: err
8050 end function
8051#endif
8052
8053#if RK1_ENABLED
8054 module function QAGD_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK1
8057#endif
8058 use pm_kind, only: RKC => RK1
8059 procedure(real(RKC)) :: getFunc
8060 type(ninf_type) , intent(in) :: lb
8061 real(RKC) , intent(in) :: ub
8062 real(RKC) , intent(in) :: abstol
8063 real(RKC) , intent(in) :: reltol
8064 type(GK61_type) , intent(in) :: qrule
8065 real(RKC) , intent(out) :: integral, abserr
8066 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8067 integer(IK) , intent(out) , contiguous :: sindex(:)
8068 integer(IK) , intent(out) :: neval
8069 integer(IK) , intent(out) :: nint
8070 integer(IK) :: err
8071 end function
8072#endif
8073
8074 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8075
8076#if RK5_ENABLED
8077 module function QAGD_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8079 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK5
8080#endif
8081 use pm_kind, only: RKC => RK5
8082 procedure(real(RKC)) :: getFunc
8083 type(ninf_type) , intent(in) :: lb
8084 type(pinf_type) , intent(in) :: ub
8085 real(RKC) , intent(in) :: abstol
8086 real(RKC) , intent(in) :: reltol
8087 type(GK61_type) , intent(in) :: qrule
8088 real(RKC) , intent(out) :: integral, abserr
8089 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8090 integer(IK) , intent(out) , contiguous :: sindex(:)
8091 integer(IK) , intent(out) :: neval
8092 integer(IK) , intent(out) :: nint
8093 integer(IK) :: err
8094 end function
8095#endif
8096
8097#if RK4_ENABLED
8098 module function QAGD_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8100 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK4
8101#endif
8102 use pm_kind, only: RKC => RK4
8103 procedure(real(RKC)) :: getFunc
8104 type(ninf_type) , intent(in) :: lb
8105 type(pinf_type) , intent(in) :: ub
8106 real(RKC) , intent(in) :: abstol
8107 real(RKC) , intent(in) :: reltol
8108 type(GK61_type) , intent(in) :: qrule
8109 real(RKC) , intent(out) :: integral, abserr
8110 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8111 integer(IK) , intent(out) , contiguous :: sindex(:)
8112 integer(IK) , intent(out) :: neval
8113 integer(IK) , intent(out) :: nint
8114 integer(IK) :: err
8115 end function
8116#endif
8117
8118#if RK3_ENABLED
8119 module function QAGD_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8121 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK3
8122#endif
8123 use pm_kind, only: RKC => RK3
8124 procedure(real(RKC)) :: getFunc
8125 type(ninf_type) , intent(in) :: lb
8126 type(pinf_type) , intent(in) :: ub
8127 real(RKC) , intent(in) :: abstol
8128 real(RKC) , intent(in) :: reltol
8129 type(GK61_type) , intent(in) :: qrule
8130 real(RKC) , intent(out) :: integral, abserr
8131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8132 integer(IK) , intent(out) , contiguous :: sindex(:)
8133 integer(IK) , intent(out) :: neval
8134 integer(IK) , intent(out) :: nint
8135 integer(IK) :: err
8136 end function
8137#endif
8138
8139#if RK2_ENABLED
8140 module function QAGD_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK2
8143#endif
8144 use pm_kind, only: RKC => RK2
8145 procedure(real(RKC)) :: getFunc
8146 type(ninf_type) , intent(in) :: lb
8147 type(pinf_type) , intent(in) :: ub
8148 real(RKC) , intent(in) :: abstol
8149 real(RKC) , intent(in) :: reltol
8150 type(GK61_type) , intent(in) :: qrule
8151 real(RKC) , intent(out) :: integral, abserr
8152 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8153 integer(IK) , intent(out) , contiguous :: sindex(:)
8154 integer(IK) , intent(out) :: neval
8155 integer(IK) , intent(out) :: nint
8156 integer(IK) :: err
8157 end function
8158#endif
8159
8160#if RK1_ENABLED
8161 module function QAGD_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8163 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK1
8164#endif
8165 use pm_kind, only: RKC => RK1
8166 procedure(real(RKC)) :: getFunc
8167 type(ninf_type) , intent(in) :: lb
8168 type(pinf_type) , intent(in) :: ub
8169 real(RKC) , intent(in) :: abstol
8170 real(RKC) , intent(in) :: reltol
8171 type(GK61_type) , intent(in) :: qrule
8172 real(RKC) , intent(out) :: integral, abserr
8173 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8174 integer(IK) , intent(out) , contiguous :: sindex(:)
8175 integer(IK) , intent(out) :: neval
8176 integer(IK) , intent(out) :: nint
8177 integer(IK) :: err
8178 end function
8179#endif
8180
8181 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8182
8183 end interface
8184
8185 ! QAGD_GKXX
8186
8187 interface getQuadErr
8188
8189 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8190
8191#if RK5_ENABLED
8192 module function QAGD_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8194 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK5
8195#endif
8196 use pm_kind, only: RKC => RK5
8197 procedure(real(RKC)) :: getFunc
8198 real(RKC) , intent(in) :: lb
8199 real(RKC) , intent(in) :: ub
8200 real(RKC) , intent(in) :: abstol
8201 real(RKC) , intent(in) :: reltol
8202 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8203 real(RKC) , intent(out) :: integral, abserr
8204 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8205 integer(IK) , intent(out) , contiguous :: sindex(:)
8206 integer(IK) , intent(out) :: neval
8207 integer(IK) , intent(out) :: nint
8208 integer(IK) :: err
8209 end function
8210#endif
8211
8212#if RK4_ENABLED
8213 module function QAGD_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8215 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK4
8216#endif
8217 use pm_kind, only: RKC => RK4
8218 procedure(real(RKC)) :: getFunc
8219 real(RKC) , intent(in) :: lb
8220 real(RKC) , intent(in) :: ub
8221 real(RKC) , intent(in) :: abstol
8222 real(RKC) , intent(in) :: reltol
8223 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8224 real(RKC) , intent(out) :: integral, abserr
8225 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8226 integer(IK) , intent(out) , contiguous :: sindex(:)
8227 integer(IK) , intent(out) :: neval
8228 integer(IK) , intent(out) :: nint
8229 integer(IK) :: err
8230 end function
8231#endif
8232
8233#if RK3_ENABLED
8234 module function QAGD_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8236 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK3
8237#endif
8238 use pm_kind, only: RKC => RK3
8239 procedure(real(RKC)) :: getFunc
8240 real(RKC) , intent(in) :: lb
8241 real(RKC) , intent(in) :: ub
8242 real(RKC) , intent(in) :: abstol
8243 real(RKC) , intent(in) :: reltol
8244 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8245 real(RKC) , intent(out) :: integral, abserr
8246 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8247 integer(IK) , intent(out) , contiguous :: sindex(:)
8248 integer(IK) , intent(out) :: neval
8249 integer(IK) , intent(out) :: nint
8250 integer(IK) :: err
8251 end function
8252#endif
8253
8254#if RK2_ENABLED
8255 module function QAGD_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8257 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK2
8258#endif
8259 use pm_kind, only: RKC => RK2
8260 procedure(real(RKC)) :: getFunc
8261 real(RKC) , intent(in) :: lb
8262 real(RKC) , intent(in) :: ub
8263 real(RKC) , intent(in) :: abstol
8264 real(RKC) , intent(in) :: reltol
8265 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8266 real(RKC) , intent(out) :: integral, abserr
8267 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8268 integer(IK) , intent(out) , contiguous :: sindex(:)
8269 integer(IK) , intent(out) :: neval
8270 integer(IK) , intent(out) :: nint
8271 integer(IK) :: err
8272 end function
8273#endif
8274
8275#if RK1_ENABLED
8276 module function QAGD_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8278 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK1
8279#endif
8280 use pm_kind, only: RKC => RK1
8281 procedure(real(RKC)) :: getFunc
8282 real(RKC) , intent(in) :: lb
8283 real(RKC) , intent(in) :: ub
8284 real(RKC) , intent(in) :: abstol
8285 real(RKC) , intent(in) :: reltol
8286 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8287 real(RKC) , intent(out) :: integral, abserr
8288 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8289 integer(IK) , intent(out) , contiguous :: sindex(:)
8290 integer(IK) , intent(out) :: neval
8291 integer(IK) , intent(out) :: nint
8292 integer(IK) :: err
8293 end function
8294#endif
8295
8296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8297
8298#if RK5_ENABLED
8299 module function QAGD_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8301 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK5
8302#endif
8303 use pm_kind, only: RKC => RK5
8304 procedure(real(RKC)) :: getFunc
8305 real(RKC) , intent(in) :: lb
8306 type(pinf_type) , intent(in) :: ub
8307 real(RKC) , intent(in) :: abstol
8308 real(RKC) , intent(in) :: reltol
8309 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8310 real(RKC) , intent(out) :: integral, abserr
8311 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8312 integer(IK) , intent(out) , contiguous :: sindex(:)
8313 integer(IK) , intent(out) :: neval
8314 integer(IK) , intent(out) :: nint
8315 integer(IK) :: err
8316 end function
8317#endif
8318
8319#if RK4_ENABLED
8320 module function QAGD_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8322 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK4
8323#endif
8324 use pm_kind, only: RKC => RK4
8325 procedure(real(RKC)) :: getFunc
8326 real(RKC) , intent(in) :: lb
8327 type(pinf_type) , intent(in) :: ub
8328 real(RKC) , intent(in) :: abstol
8329 real(RKC) , intent(in) :: reltol
8330 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8331 real(RKC) , intent(out) :: integral, abserr
8332 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8333 integer(IK) , intent(out) , contiguous :: sindex(:)
8334 integer(IK) , intent(out) :: neval
8335 integer(IK) , intent(out) :: nint
8336 integer(IK) :: err
8337 end function
8338#endif
8339
8340#if RK3_ENABLED
8341 module function QAGD_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8343 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK3
8344#endif
8345 use pm_kind, only: RKC => RK3
8346 procedure(real(RKC)) :: getFunc
8347 real(RKC) , intent(in) :: lb
8348 type(pinf_type) , intent(in) :: ub
8349 real(RKC) , intent(in) :: abstol
8350 real(RKC) , intent(in) :: reltol
8351 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8352 real(RKC) , intent(out) :: integral, abserr
8353 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8354 integer(IK) , intent(out) , contiguous :: sindex(:)
8355 integer(IK) , intent(out) :: neval
8356 integer(IK) , intent(out) :: nint
8357 integer(IK) :: err
8358 end function
8359#endif
8360
8361#if RK2_ENABLED
8362 module function QAGD_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8364 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK2
8365#endif
8366 use pm_kind, only: RKC => RK2
8367 procedure(real(RKC)) :: getFunc
8368 real(RKC) , intent(in) :: lb
8369 type(pinf_type) , intent(in) :: ub
8370 real(RKC) , intent(in) :: abstol
8371 real(RKC) , intent(in) :: reltol
8372 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8373 real(RKC) , intent(out) :: integral, abserr
8374 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8375 integer(IK) , intent(out) , contiguous :: sindex(:)
8376 integer(IK) , intent(out) :: neval
8377 integer(IK) , intent(out) :: nint
8378 integer(IK) :: err
8379 end function
8380#endif
8381
8382#if RK1_ENABLED
8383 module function QAGD_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8385 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK1
8386#endif
8387 use pm_kind, only: RKC => RK1
8388 procedure(real(RKC)) :: getFunc
8389 real(RKC) , intent(in) :: lb
8390 type(pinf_type) , intent(in) :: ub
8391 real(RKC) , intent(in) :: abstol
8392 real(RKC) , intent(in) :: reltol
8393 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8394 real(RKC) , intent(out) :: integral, abserr
8395 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8396 integer(IK) , intent(out) , contiguous :: sindex(:)
8397 integer(IK) , intent(out) :: neval
8398 integer(IK) , intent(out) :: nint
8399 integer(IK) :: err
8400 end function
8401#endif
8402
8403 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8404
8405#if RK5_ENABLED
8406 module function QAGD_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8408 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK5
8409#endif
8410 use pm_kind, only: RKC => RK5
8411 procedure(real(RKC)) :: getFunc
8412 type(ninf_type) , intent(in) :: lb
8413 real(RKC) , intent(in) :: ub
8414 real(RKC) , intent(in) :: abstol
8415 real(RKC) , intent(in) :: reltol
8416 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8417 real(RKC) , intent(out) :: integral, abserr
8418 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8419 integer(IK) , intent(out) , contiguous :: sindex(:)
8420 integer(IK) , intent(out) :: neval
8421 integer(IK) , intent(out) :: nint
8422 integer(IK) :: err
8423 end function
8424#endif
8425
8426#if RK4_ENABLED
8427 module function QAGD_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8429 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK4
8430#endif
8431 use pm_kind, only: RKC => RK4
8432 procedure(real(RKC)) :: getFunc
8433 type(ninf_type) , intent(in) :: lb
8434 real(RKC) , intent(in) :: ub
8435 real(RKC) , intent(in) :: abstol
8436 real(RKC) , intent(in) :: reltol
8437 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8438 real(RKC) , intent(out) :: integral, abserr
8439 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8440 integer(IK) , intent(out) , contiguous :: sindex(:)
8441 integer(IK) , intent(out) :: neval
8442 integer(IK) , intent(out) :: nint
8443 integer(IK) :: err
8444 end function
8445#endif
8446
8447#if RK3_ENABLED
8448 module function QAGD_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8450 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK3
8451#endif
8452 use pm_kind, only: RKC => RK3
8453 procedure(real(RKC)) :: getFunc
8454 type(ninf_type) , intent(in) :: lb
8455 real(RKC) , intent(in) :: ub
8456 real(RKC) , intent(in) :: abstol
8457 real(RKC) , intent(in) :: reltol
8458 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8459 real(RKC) , intent(out) :: integral, abserr
8460 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8461 integer(IK) , intent(out) , contiguous :: sindex(:)
8462 integer(IK) , intent(out) :: neval
8463 integer(IK) , intent(out) :: nint
8464 integer(IK) :: err
8465 end function
8466#endif
8467
8468#if RK2_ENABLED
8469 module function QAGD_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8471 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK2
8472#endif
8473 use pm_kind, only: RKC => RK2
8474 procedure(real(RKC)) :: getFunc
8475 type(ninf_type) , intent(in) :: lb
8476 real(RKC) , intent(in) :: ub
8477 real(RKC) , intent(in) :: abstol
8478 real(RKC) , intent(in) :: reltol
8479 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8480 real(RKC) , intent(out) :: integral, abserr
8481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8482 integer(IK) , intent(out) , contiguous :: sindex(:)
8483 integer(IK) , intent(out) :: neval
8484 integer(IK) , intent(out) :: nint
8485 integer(IK) :: err
8486 end function
8487#endif
8488
8489#if RK1_ENABLED
8490 module function QAGD_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8492 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK1
8493#endif
8494 use pm_kind, only: RKC => RK1
8495 procedure(real(RKC)) :: getFunc
8496 type(ninf_type) , intent(in) :: lb
8497 real(RKC) , intent(in) :: ub
8498 real(RKC) , intent(in) :: abstol
8499 real(RKC) , intent(in) :: reltol
8500 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8501 real(RKC) , intent(out) :: integral, abserr
8502 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8503 integer(IK) , intent(out) , contiguous :: sindex(:)
8504 integer(IK) , intent(out) :: neval
8505 integer(IK) , intent(out) :: nint
8506 integer(IK) :: err
8507 end function
8508#endif
8509
8510 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8511
8512#if RK5_ENABLED
8513 module function QAGD_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8515 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK5
8516#endif
8517 use pm_kind, only: RKC => RK5
8518 procedure(real(RKC)) :: getFunc
8519 type(ninf_type) , intent(in) :: lb
8520 type(pinf_type) , intent(in) :: ub
8521 real(RKC) , intent(in) :: abstol
8522 real(RKC) , intent(in) :: reltol
8523 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8524 real(RKC) , intent(out) :: integral, abserr
8525 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8526 integer(IK) , intent(out) , contiguous :: sindex(:)
8527 integer(IK) , intent(out) :: neval
8528 integer(IK) , intent(out) :: nint
8529 integer(IK) :: err
8530 end function
8531#endif
8532
8533#if RK4_ENABLED
8534 module function QAGD_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8536 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK4
8537#endif
8538 use pm_kind, only: RKC => RK4
8539 procedure(real(RKC)) :: getFunc
8540 type(ninf_type) , intent(in) :: lb
8541 type(pinf_type) , intent(in) :: ub
8542 real(RKC) , intent(in) :: abstol
8543 real(RKC) , intent(in) :: reltol
8544 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8545 real(RKC) , intent(out) :: integral, abserr
8546 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8547 integer(IK) , intent(out) , contiguous :: sindex(:)
8548 integer(IK) , intent(out) :: neval
8549 integer(IK) , intent(out) :: nint
8550 integer(IK) :: err
8551 end function
8552#endif
8553
8554#if RK3_ENABLED
8555 module function QAGD_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8557 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK3
8558#endif
8559 use pm_kind, only: RKC => RK3
8560 procedure(real(RKC)) :: getFunc
8561 type(ninf_type) , intent(in) :: lb
8562 type(pinf_type) , intent(in) :: ub
8563 real(RKC) , intent(in) :: abstol
8564 real(RKC) , intent(in) :: reltol
8565 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8566 real(RKC) , intent(out) :: integral, abserr
8567 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8568 integer(IK) , intent(out) , contiguous :: sindex(:)
8569 integer(IK) , intent(out) :: neval
8570 integer(IK) , intent(out) :: nint
8571 integer(IK) :: err
8572 end function
8573#endif
8574
8575#if RK2_ENABLED
8576 module function QAGD_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK2
8579#endif
8580 use pm_kind, only: RKC => RK2
8581 procedure(real(RKC)) :: getFunc
8582 type(ninf_type) , intent(in) :: lb
8583 type(pinf_type) , intent(in) :: ub
8584 real(RKC) , intent(in) :: abstol
8585 real(RKC) , intent(in) :: reltol
8586 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8587 real(RKC) , intent(out) :: integral, abserr
8588 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8589 integer(IK) , intent(out) , contiguous :: sindex(:)
8590 integer(IK) , intent(out) :: neval
8591 integer(IK) , intent(out) :: nint
8592 integer(IK) :: err
8593 end function
8594#endif
8595
8596#if RK1_ENABLED
8597 module function QAGD_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8599 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK1
8600#endif
8601 use pm_kind, only: RKC => RK1
8602 procedure(real(RKC)) :: getFunc
8603 type(ninf_type) , intent(in) :: lb
8604 type(pinf_type) , intent(in) :: ub
8605 real(RKC) , intent(in) :: abstol
8606 real(RKC) , intent(in) :: reltol
8607 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8608 real(RKC) , intent(out) :: integral, abserr
8609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8610 integer(IK) , intent(out) , contiguous :: sindex(:)
8611 integer(IK) , intent(out) :: neval
8612 integer(IK) , intent(out) :: nint
8613 integer(IK) :: err
8614 end function
8615#endif
8616
8617 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8618
8619 end interface
8620
8621!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8622
8623 ! QAGS_GK15
8624
8625 interface getQuadErr
8626
8627 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8628
8629#if RK5_ENABLED
8630 module function QAGS_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8632 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK5
8633#endif
8634 use pm_kind, only: RKC => RK5
8635 procedure(real(RKC)) :: getFunc
8636 real(RKC) , intent(in) :: lb
8637 real(RKC) , intent(in) :: ub
8638 real(RKC) , intent(in) :: abstol
8639 real(RKC) , intent(in) :: reltol
8640 type(GK15_type) , intent(in) :: qrule
8641 type(weps_type) , intent(in) :: help
8642 real(RKC) , intent(out) :: integral, abserr
8643 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8644 integer(IK) , intent(out) , contiguous :: sindex(:)
8645 integer(IK) , intent(out) :: neval
8646 integer(IK) , intent(out) :: nint
8647 integer(IK) :: err
8648 end function
8649#endif
8650
8651#if RK4_ENABLED
8652 module function QAGS_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8654 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK4
8655#endif
8656 use pm_kind, only: RKC => RK4
8657 procedure(real(RKC)) :: getFunc
8658 real(RKC) , intent(in) :: lb
8659 real(RKC) , intent(in) :: ub
8660 real(RKC) , intent(in) :: abstol
8661 real(RKC) , intent(in) :: reltol
8662 type(GK15_type) , intent(in) :: qrule
8663 type(weps_type) , intent(in) :: help
8664 real(RKC) , intent(out) :: integral, abserr
8665 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8666 integer(IK) , intent(out) , contiguous :: sindex(:)
8667 integer(IK) , intent(out) :: neval
8668 integer(IK) , intent(out) :: nint
8669 integer(IK) :: err
8670 end function
8671#endif
8672
8673#if RK3_ENABLED
8674 module function QAGS_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8676 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK3
8677#endif
8678 use pm_kind, only: RKC => RK3
8679 procedure(real(RKC)) :: getFunc
8680 real(RKC) , intent(in) :: lb
8681 real(RKC) , intent(in) :: ub
8682 real(RKC) , intent(in) :: abstol
8683 real(RKC) , intent(in) :: reltol
8684 type(GK15_type) , intent(in) :: qrule
8685 type(weps_type) , intent(in) :: help
8686 real(RKC) , intent(out) :: integral, abserr
8687 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8688 integer(IK) , intent(out) , contiguous :: sindex(:)
8689 integer(IK) , intent(out) :: neval
8690 integer(IK) , intent(out) :: nint
8691 integer(IK) :: err
8692 end function
8693#endif
8694
8695#if RK2_ENABLED
8696 module function QAGS_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8698 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK2
8699#endif
8700 use pm_kind, only: RKC => RK2
8701 procedure(real(RKC)) :: getFunc
8702 real(RKC) , intent(in) :: lb
8703 real(RKC) , intent(in) :: ub
8704 real(RKC) , intent(in) :: abstol
8705 real(RKC) , intent(in) :: reltol
8706 type(GK15_type) , intent(in) :: qrule
8707 type(weps_type) , intent(in) :: help
8708 real(RKC) , intent(out) :: integral, abserr
8709 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8710 integer(IK) , intent(out) , contiguous :: sindex(:)
8711 integer(IK) , intent(out) :: neval
8712 integer(IK) , intent(out) :: nint
8713 integer(IK) :: err
8714 end function
8715#endif
8716
8717#if RK1_ENABLED
8718 module function QAGS_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8720 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK1
8721#endif
8722 use pm_kind, only: RKC => RK1
8723 procedure(real(RKC)) :: getFunc
8724 real(RKC) , intent(in) :: lb
8725 real(RKC) , intent(in) :: ub
8726 real(RKC) , intent(in) :: abstol
8727 real(RKC) , intent(in) :: reltol
8728 type(GK15_type) , intent(in) :: qrule
8729 type(weps_type) , intent(in) :: help
8730 real(RKC) , intent(out) :: integral, abserr
8731 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8732 integer(IK) , intent(out) , contiguous :: sindex(:)
8733 integer(IK) , intent(out) :: neval
8734 integer(IK) , intent(out) :: nint
8735 integer(IK) :: err
8736 end function
8737#endif
8738
8739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8740
8741#if RK5_ENABLED
8742 module function QAGS_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8744 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK5
8745#endif
8746 use pm_kind, only: RKC => RK5
8747 procedure(real(RKC)) :: getFunc
8748 real(RKC) , intent(in) :: lb
8749 type(pinf_type) , intent(in) :: ub
8750 real(RKC) , intent(in) :: abstol
8751 real(RKC) , intent(in) :: reltol
8752 type(GK15_type) , intent(in) :: qrule
8753 type(weps_type) , intent(in) :: help
8754 real(RKC) , intent(out) :: integral, abserr
8755 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8756 integer(IK) , intent(out) , contiguous :: sindex(:)
8757 integer(IK) , intent(out) :: neval
8758 integer(IK) , intent(out) :: nint
8759 integer(IK) :: err
8760 end function
8761#endif
8762
8763#if RK4_ENABLED
8764 module function QAGS_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8766 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK4
8767#endif
8768 use pm_kind, only: RKC => RK4
8769 procedure(real(RKC)) :: getFunc
8770 real(RKC) , intent(in) :: lb
8771 type(pinf_type) , intent(in) :: ub
8772 real(RKC) , intent(in) :: abstol
8773 real(RKC) , intent(in) :: reltol
8774 type(GK15_type) , intent(in) :: qrule
8775 type(weps_type) , intent(in) :: help
8776 real(RKC) , intent(out) :: integral, abserr
8777 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8778 integer(IK) , intent(out) , contiguous :: sindex(:)
8779 integer(IK) , intent(out) :: neval
8780 integer(IK) , intent(out) :: nint
8781 integer(IK) :: err
8782 end function
8783#endif
8784
8785#if RK3_ENABLED
8786 module function QAGS_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8788 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK3
8789#endif
8790 use pm_kind, only: RKC => RK3
8791 procedure(real(RKC)) :: getFunc
8792 real(RKC) , intent(in) :: lb
8793 type(pinf_type) , intent(in) :: ub
8794 real(RKC) , intent(in) :: abstol
8795 real(RKC) , intent(in) :: reltol
8796 type(GK15_type) , intent(in) :: qrule
8797 type(weps_type) , intent(in) :: help
8798 real(RKC) , intent(out) :: integral, abserr
8799 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8800 integer(IK) , intent(out) , contiguous :: sindex(:)
8801 integer(IK) , intent(out) :: neval
8802 integer(IK) , intent(out) :: nint
8803 integer(IK) :: err
8804 end function
8805#endif
8806
8807#if RK2_ENABLED
8808 module function QAGS_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8810 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK2
8811#endif
8812 use pm_kind, only: RKC => RK2
8813 procedure(real(RKC)) :: getFunc
8814 real(RKC) , intent(in) :: lb
8815 type(pinf_type) , intent(in) :: ub
8816 real(RKC) , intent(in) :: abstol
8817 real(RKC) , intent(in) :: reltol
8818 type(GK15_type) , intent(in) :: qrule
8819 type(weps_type) , intent(in) :: help
8820 real(RKC) , intent(out) :: integral, abserr
8821 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8822 integer(IK) , intent(out) , contiguous :: sindex(:)
8823 integer(IK) , intent(out) :: neval
8824 integer(IK) , intent(out) :: nint
8825 integer(IK) :: err
8826 end function
8827#endif
8828
8829#if RK1_ENABLED
8830 module function QAGS_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8832 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK1
8833#endif
8834 use pm_kind, only: RKC => RK1
8835 procedure(real(RKC)) :: getFunc
8836 real(RKC) , intent(in) :: lb
8837 type(pinf_type) , intent(in) :: ub
8838 real(RKC) , intent(in) :: abstol
8839 real(RKC) , intent(in) :: reltol
8840 type(GK15_type) , intent(in) :: qrule
8841 type(weps_type) , intent(in) :: help
8842 real(RKC) , intent(out) :: integral, abserr
8843 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8844 integer(IK) , intent(out) , contiguous :: sindex(:)
8845 integer(IK) , intent(out) :: neval
8846 integer(IK) , intent(out) :: nint
8847 integer(IK) :: err
8848 end function
8849#endif
8850
8851 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8852
8853#if RK5_ENABLED
8854 module function QAGS_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8856 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK5
8857#endif
8858 use pm_kind, only: RKC => RK5
8859 procedure(real(RKC)) :: getFunc
8860 type(ninf_type) , intent(in) :: lb
8861 real(RKC) , intent(in) :: ub
8862 real(RKC) , intent(in) :: abstol
8863 real(RKC) , intent(in) :: reltol
8864 type(GK15_type) , intent(in) :: qrule
8865 type(weps_type) , intent(in) :: help
8866 real(RKC) , intent(out) :: integral, abserr
8867 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8868 integer(IK) , intent(out) , contiguous :: sindex(:)
8869 integer(IK) , intent(out) :: neval
8870 integer(IK) , intent(out) :: nint
8871 integer(IK) :: err
8872 end function
8873#endif
8874
8875#if RK4_ENABLED
8876 module function QAGS_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8878 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK4
8879#endif
8880 use pm_kind, only: RKC => RK4
8881 procedure(real(RKC)) :: getFunc
8882 type(ninf_type) , intent(in) :: lb
8883 real(RKC) , intent(in) :: ub
8884 real(RKC) , intent(in) :: abstol
8885 real(RKC) , intent(in) :: reltol
8886 type(GK15_type) , intent(in) :: qrule
8887 type(weps_type) , intent(in) :: help
8888 real(RKC) , intent(out) :: integral, abserr
8889 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8890 integer(IK) , intent(out) , contiguous :: sindex(:)
8891 integer(IK) , intent(out) :: neval
8892 integer(IK) , intent(out) :: nint
8893 integer(IK) :: err
8894 end function
8895#endif
8896
8897#if RK3_ENABLED
8898 module function QAGS_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8900 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK3
8901#endif
8902 use pm_kind, only: RKC => RK3
8903 procedure(real(RKC)) :: getFunc
8904 type(ninf_type) , intent(in) :: lb
8905 real(RKC) , intent(in) :: ub
8906 real(RKC) , intent(in) :: abstol
8907 real(RKC) , intent(in) :: reltol
8908 type(GK15_type) , intent(in) :: qrule
8909 type(weps_type) , intent(in) :: help
8910 real(RKC) , intent(out) :: integral, abserr
8911 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8912 integer(IK) , intent(out) , contiguous :: sindex(:)
8913 integer(IK) , intent(out) :: neval
8914 integer(IK) , intent(out) :: nint
8915 integer(IK) :: err
8916 end function
8917#endif
8918
8919#if RK2_ENABLED
8920 module function QAGS_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK2
8923#endif
8924 use pm_kind, only: RKC => RK2
8925 procedure(real(RKC)) :: getFunc
8926 type(ninf_type) , intent(in) :: lb
8927 real(RKC) , intent(in) :: ub
8928 real(RKC) , intent(in) :: abstol
8929 real(RKC) , intent(in) :: reltol
8930 type(GK15_type) , intent(in) :: qrule
8931 type(weps_type) , intent(in) :: help
8932 real(RKC) , intent(out) :: integral, abserr
8933 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8934 integer(IK) , intent(out) , contiguous :: sindex(:)
8935 integer(IK) , intent(out) :: neval
8936 integer(IK) , intent(out) :: nint
8937 integer(IK) :: err
8938 end function
8939#endif
8940
8941#if RK1_ENABLED
8942 module function QAGS_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8944 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK1
8945#endif
8946 use pm_kind, only: RKC => RK1
8947 procedure(real(RKC)) :: getFunc
8948 type(ninf_type) , intent(in) :: lb
8949 real(RKC) , intent(in) :: ub
8950 real(RKC) , intent(in) :: abstol
8951 real(RKC) , intent(in) :: reltol
8952 type(GK15_type) , intent(in) :: qrule
8953 type(weps_type) , intent(in) :: help
8954 real(RKC) , intent(out) :: integral, abserr
8955 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8956 integer(IK) , intent(out) , contiguous :: sindex(:)
8957 integer(IK) , intent(out) :: neval
8958 integer(IK) , intent(out) :: nint
8959 integer(IK) :: err
8960 end function
8961#endif
8962
8963 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8964
8965#if RK5_ENABLED
8966 module function QAGS_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8968 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK5
8969#endif
8970 use pm_kind, only: RKC => RK5
8971 procedure(real(RKC)) :: getFunc
8972 type(ninf_type) , intent(in) :: lb
8973 type(pinf_type) , intent(in) :: ub
8974 real(RKC) , intent(in) :: abstol
8975 real(RKC) , intent(in) :: reltol
8976 type(GK15_type) , intent(in) :: qrule
8977 type(weps_type) , intent(in) :: help
8978 real(RKC) , intent(out) :: integral, abserr
8979 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8980 integer(IK) , intent(out) , contiguous :: sindex(:)
8981 integer(IK) , intent(out) :: neval
8982 integer(IK) , intent(out) :: nint
8983 integer(IK) :: err
8984 end function
8985#endif
8986
8987#if RK4_ENABLED
8988 module function QAGS_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8990 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK4
8991#endif
8992 use pm_kind, only: RKC => RK4
8993 procedure(real(RKC)) :: getFunc
8994 type(ninf_type) , intent(in) :: lb
8995 type(pinf_type) , intent(in) :: ub
8996 real(RKC) , intent(in) :: abstol
8997 real(RKC) , intent(in) :: reltol
8998 type(GK15_type) , intent(in) :: qrule
8999 type(weps_type) , intent(in) :: help
9000 real(RKC) , intent(out) :: integral, abserr
9001 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9002 integer(IK) , intent(out) , contiguous :: sindex(:)
9003 integer(IK) , intent(out) :: neval
9004 integer(IK) , intent(out) :: nint
9005 integer(IK) :: err
9006 end function
9007#endif
9008
9009#if RK3_ENABLED
9010 module function QAGS_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9012 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK3
9013#endif
9014 use pm_kind, only: RKC => RK3
9015 procedure(real(RKC)) :: getFunc
9016 type(ninf_type) , intent(in) :: lb
9017 type(pinf_type) , intent(in) :: ub
9018 real(RKC) , intent(in) :: abstol
9019 real(RKC) , intent(in) :: reltol
9020 type(GK15_type) , intent(in) :: qrule
9021 type(weps_type) , intent(in) :: help
9022 real(RKC) , intent(out) :: integral, abserr
9023 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9024 integer(IK) , intent(out) , contiguous :: sindex(:)
9025 integer(IK) , intent(out) :: neval
9026 integer(IK) , intent(out) :: nint
9027 integer(IK) :: err
9028 end function
9029#endif
9030
9031#if RK2_ENABLED
9032 module function QAGS_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9034 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK2
9035#endif
9036 use pm_kind, only: RKC => RK2
9037 procedure(real(RKC)) :: getFunc
9038 type(ninf_type) , intent(in) :: lb
9039 type(pinf_type) , intent(in) :: ub
9040 real(RKC) , intent(in) :: abstol
9041 real(RKC) , intent(in) :: reltol
9042 type(GK15_type) , intent(in) :: qrule
9043 type(weps_type) , intent(in) :: help
9044 real(RKC) , intent(out) :: integral, abserr
9045 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9046 integer(IK) , intent(out) , contiguous :: sindex(:)
9047 integer(IK) , intent(out) :: neval
9048 integer(IK) , intent(out) :: nint
9049 integer(IK) :: err
9050 end function
9051#endif
9052
9053#if RK1_ENABLED
9054 module function QAGS_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK1
9057#endif
9058 use pm_kind, only: RKC => RK1
9059 procedure(real(RKC)) :: getFunc
9060 type(ninf_type) , intent(in) :: lb
9061 type(pinf_type) , intent(in) :: ub
9062 real(RKC) , intent(in) :: abstol
9063 real(RKC) , intent(in) :: reltol
9064 type(GK15_type) , intent(in) :: qrule
9065 type(weps_type) , intent(in) :: help
9066 real(RKC) , intent(out) :: integral, abserr
9067 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9068 integer(IK) , intent(out) , contiguous :: sindex(:)
9069 integer(IK) , intent(out) :: neval
9070 integer(IK) , intent(out) :: nint
9071 integer(IK) :: err
9072 end function
9073#endif
9074
9075 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9076
9077 end interface
9078
9079 ! QAGS_GK21
9080
9081 interface getQuadErr
9082
9083 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9084
9085#if RK5_ENABLED
9086 module function QAGS_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9088 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK5
9089#endif
9090 use pm_kind, only: RKC => RK5
9091 procedure(real(RKC)) :: getFunc
9092 real(RKC) , intent(in) :: lb
9093 real(RKC) , intent(in) :: ub
9094 real(RKC) , intent(in) :: abstol
9095 real(RKC) , intent(in) :: reltol
9096 type(GK21_type) , intent(in) :: qrule
9097 type(weps_type) , intent(in) :: help
9098 real(RKC) , intent(out) :: integral, abserr
9099 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9100 integer(IK) , intent(out) , contiguous :: sindex(:)
9101 integer(IK) , intent(out) :: neval
9102 integer(IK) , intent(out) :: nint
9103 integer(IK) :: err
9104 end function
9105#endif
9106
9107#if RK4_ENABLED
9108 module function QAGS_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9110 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK4
9111#endif
9112 use pm_kind, only: RKC => RK4
9113 procedure(real(RKC)) :: getFunc
9114 real(RKC) , intent(in) :: lb
9115 real(RKC) , intent(in) :: ub
9116 real(RKC) , intent(in) :: abstol
9117 real(RKC) , intent(in) :: reltol
9118 type(GK21_type) , intent(in) :: qrule
9119 type(weps_type) , intent(in) :: help
9120 real(RKC) , intent(out) :: integral, abserr
9121 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9122 integer(IK) , intent(out) , contiguous :: sindex(:)
9123 integer(IK) , intent(out) :: neval
9124 integer(IK) , intent(out) :: nint
9125 integer(IK) :: err
9126 end function
9127#endif
9128
9129#if RK3_ENABLED
9130 module function QAGS_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9132 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK3
9133#endif
9134 use pm_kind, only: RKC => RK3
9135 procedure(real(RKC)) :: getFunc
9136 real(RKC) , intent(in) :: lb
9137 real(RKC) , intent(in) :: ub
9138 real(RKC) , intent(in) :: abstol
9139 real(RKC) , intent(in) :: reltol
9140 type(GK21_type) , intent(in) :: qrule
9141 type(weps_type) , intent(in) :: help
9142 real(RKC) , intent(out) :: integral, abserr
9143 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9144 integer(IK) , intent(out) , contiguous :: sindex(:)
9145 integer(IK) , intent(out) :: neval
9146 integer(IK) , intent(out) :: nint
9147 integer(IK) :: err
9148 end function
9149#endif
9150
9151#if RK2_ENABLED
9152 module function QAGS_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9154 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK2
9155#endif
9156 use pm_kind, only: RKC => RK2
9157 procedure(real(RKC)) :: getFunc
9158 real(RKC) , intent(in) :: lb
9159 real(RKC) , intent(in) :: ub
9160 real(RKC) , intent(in) :: abstol
9161 real(RKC) , intent(in) :: reltol
9162 type(GK21_type) , intent(in) :: qrule
9163 type(weps_type) , intent(in) :: help
9164 real(RKC) , intent(out) :: integral, abserr
9165 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9166 integer(IK) , intent(out) , contiguous :: sindex(:)
9167 integer(IK) , intent(out) :: neval
9168 integer(IK) , intent(out) :: nint
9169 integer(IK) :: err
9170 end function
9171#endif
9172
9173#if RK1_ENABLED
9174 module function QAGS_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9176 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK1
9177#endif
9178 use pm_kind, only: RKC => RK1
9179 procedure(real(RKC)) :: getFunc
9180 real(RKC) , intent(in) :: lb
9181 real(RKC) , intent(in) :: ub
9182 real(RKC) , intent(in) :: abstol
9183 real(RKC) , intent(in) :: reltol
9184 type(GK21_type) , intent(in) :: qrule
9185 type(weps_type) , intent(in) :: help
9186 real(RKC) , intent(out) :: integral, abserr
9187 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9188 integer(IK) , intent(out) , contiguous :: sindex(:)
9189 integer(IK) , intent(out) :: neval
9190 integer(IK) , intent(out) :: nint
9191 integer(IK) :: err
9192 end function
9193#endif
9194
9195 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9196
9197#if RK5_ENABLED
9198 module function QAGS_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9200 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK5
9201#endif
9202 use pm_kind, only: RKC => RK5
9203 procedure(real(RKC)) :: getFunc
9204 real(RKC) , intent(in) :: lb
9205 type(pinf_type) , intent(in) :: ub
9206 real(RKC) , intent(in) :: abstol
9207 real(RKC) , intent(in) :: reltol
9208 type(GK21_type) , intent(in) :: qrule
9209 type(weps_type) , intent(in) :: help
9210 real(RKC) , intent(out) :: integral, abserr
9211 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9212 integer(IK) , intent(out) , contiguous :: sindex(:)
9213 integer(IK) , intent(out) :: neval
9214 integer(IK) , intent(out) :: nint
9215 integer(IK) :: err
9216 end function
9217#endif
9218
9219#if RK4_ENABLED
9220 module function QAGS_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9222 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK4
9223#endif
9224 use pm_kind, only: RKC => RK4
9225 procedure(real(RKC)) :: getFunc
9226 real(RKC) , intent(in) :: lb
9227 type(pinf_type) , intent(in) :: ub
9228 real(RKC) , intent(in) :: abstol
9229 real(RKC) , intent(in) :: reltol
9230 type(GK21_type) , intent(in) :: qrule
9231 type(weps_type) , intent(in) :: help
9232 real(RKC) , intent(out) :: integral, abserr
9233 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9234 integer(IK) , intent(out) , contiguous :: sindex(:)
9235 integer(IK) , intent(out) :: neval
9236 integer(IK) , intent(out) :: nint
9237 integer(IK) :: err
9238 end function
9239#endif
9240
9241#if RK3_ENABLED
9242 module function QAGS_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9244 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK3
9245#endif
9246 use pm_kind, only: RKC => RK3
9247 procedure(real(RKC)) :: getFunc
9248 real(RKC) , intent(in) :: lb
9249 type(pinf_type) , intent(in) :: ub
9250 real(RKC) , intent(in) :: abstol
9251 real(RKC) , intent(in) :: reltol
9252 type(GK21_type) , intent(in) :: qrule
9253 type(weps_type) , intent(in) :: help
9254 real(RKC) , intent(out) :: integral, abserr
9255 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9256 integer(IK) , intent(out) , contiguous :: sindex(:)
9257 integer(IK) , intent(out) :: neval
9258 integer(IK) , intent(out) :: nint
9259 integer(IK) :: err
9260 end function
9261#endif
9262
9263#if RK2_ENABLED
9264 module function QAGS_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9266 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK2
9267#endif
9268 use pm_kind, only: RKC => RK2
9269 procedure(real(RKC)) :: getFunc
9270 real(RKC) , intent(in) :: lb
9271 type(pinf_type) , intent(in) :: ub
9272 real(RKC) , intent(in) :: abstol
9273 real(RKC) , intent(in) :: reltol
9274 type(GK21_type) , intent(in) :: qrule
9275 type(weps_type) , intent(in) :: help
9276 real(RKC) , intent(out) :: integral, abserr
9277 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9278 integer(IK) , intent(out) , contiguous :: sindex(:)
9279 integer(IK) , intent(out) :: neval
9280 integer(IK) , intent(out) :: nint
9281 integer(IK) :: err
9282 end function
9283#endif
9284
9285#if RK1_ENABLED
9286 module function QAGS_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9288 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK1
9289#endif
9290 use pm_kind, only: RKC => RK1
9291 procedure(real(RKC)) :: getFunc
9292 real(RKC) , intent(in) :: lb
9293 type(pinf_type) , intent(in) :: ub
9294 real(RKC) , intent(in) :: abstol
9295 real(RKC) , intent(in) :: reltol
9296 type(GK21_type) , intent(in) :: qrule
9297 type(weps_type) , intent(in) :: help
9298 real(RKC) , intent(out) :: integral, abserr
9299 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9300 integer(IK) , intent(out) , contiguous :: sindex(:)
9301 integer(IK) , intent(out) :: neval
9302 integer(IK) , intent(out) :: nint
9303 integer(IK) :: err
9304 end function
9305#endif
9306
9307 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9308
9309#if RK5_ENABLED
9310 module function QAGS_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9312 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK5
9313#endif
9314 use pm_kind, only: RKC => RK5
9315 procedure(real(RKC)) :: getFunc
9316 type(ninf_type) , intent(in) :: lb
9317 real(RKC) , intent(in) :: ub
9318 real(RKC) , intent(in) :: abstol
9319 real(RKC) , intent(in) :: reltol
9320 type(GK21_type) , intent(in) :: qrule
9321 type(weps_type) , intent(in) :: help
9322 real(RKC) , intent(out) :: integral, abserr
9323 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9324 integer(IK) , intent(out) , contiguous :: sindex(:)
9325 integer(IK) , intent(out) :: neval
9326 integer(IK) , intent(out) :: nint
9327 integer(IK) :: err
9328 end function
9329#endif
9330
9331#if RK4_ENABLED
9332 module function QAGS_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9334 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK4
9335#endif
9336 use pm_kind, only: RKC => RK4
9337 procedure(real(RKC)) :: getFunc
9338 type(ninf_type) , intent(in) :: lb
9339 real(RKC) , intent(in) :: ub
9340 real(RKC) , intent(in) :: abstol
9341 real(RKC) , intent(in) :: reltol
9342 type(GK21_type) , intent(in) :: qrule
9343 type(weps_type) , intent(in) :: help
9344 real(RKC) , intent(out) :: integral, abserr
9345 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9346 integer(IK) , intent(out) , contiguous :: sindex(:)
9347 integer(IK) , intent(out) :: neval
9348 integer(IK) , intent(out) :: nint
9349 integer(IK) :: err
9350 end function
9351#endif
9352
9353#if RK3_ENABLED
9354 module function QAGS_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9356 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK3
9357#endif
9358 use pm_kind, only: RKC => RK3
9359 procedure(real(RKC)) :: getFunc
9360 type(ninf_type) , intent(in) :: lb
9361 real(RKC) , intent(in) :: ub
9362 real(RKC) , intent(in) :: abstol
9363 real(RKC) , intent(in) :: reltol
9364 type(GK21_type) , intent(in) :: qrule
9365 type(weps_type) , intent(in) :: help
9366 real(RKC) , intent(out) :: integral, abserr
9367 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9368 integer(IK) , intent(out) , contiguous :: sindex(:)
9369 integer(IK) , intent(out) :: neval
9370 integer(IK) , intent(out) :: nint
9371 integer(IK) :: err
9372 end function
9373#endif
9374
9375#if RK2_ENABLED
9376 module function QAGS_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9378 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK2
9379#endif
9380 use pm_kind, only: RKC => RK2
9381 procedure(real(RKC)) :: getFunc
9382 type(ninf_type) , intent(in) :: lb
9383 real(RKC) , intent(in) :: ub
9384 real(RKC) , intent(in) :: abstol
9385 real(RKC) , intent(in) :: reltol
9386 type(GK21_type) , intent(in) :: qrule
9387 type(weps_type) , intent(in) :: help
9388 real(RKC) , intent(out) :: integral, abserr
9389 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9390 integer(IK) , intent(out) , contiguous :: sindex(:)
9391 integer(IK) , intent(out) :: neval
9392 integer(IK) , intent(out) :: nint
9393 integer(IK) :: err
9394 end function
9395#endif
9396
9397#if RK1_ENABLED
9398 module function QAGS_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9400 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK1
9401#endif
9402 use pm_kind, only: RKC => RK1
9403 procedure(real(RKC)) :: getFunc
9404 type(ninf_type) , intent(in) :: lb
9405 real(RKC) , intent(in) :: ub
9406 real(RKC) , intent(in) :: abstol
9407 real(RKC) , intent(in) :: reltol
9408 type(GK21_type) , intent(in) :: qrule
9409 type(weps_type) , intent(in) :: help
9410 real(RKC) , intent(out) :: integral, abserr
9411 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9412 integer(IK) , intent(out) , contiguous :: sindex(:)
9413 integer(IK) , intent(out) :: neval
9414 integer(IK) , intent(out) :: nint
9415 integer(IK) :: err
9416 end function
9417#endif
9418
9419 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9420
9421#if RK5_ENABLED
9422 module function QAGS_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9424 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK5
9425#endif
9426 use pm_kind, only: RKC => RK5
9427 procedure(real(RKC)) :: getFunc
9428 type(ninf_type) , intent(in) :: lb
9429 type(pinf_type) , intent(in) :: ub
9430 real(RKC) , intent(in) :: abstol
9431 real(RKC) , intent(in) :: reltol
9432 type(GK21_type) , intent(in) :: qrule
9433 type(weps_type) , intent(in) :: help
9434 real(RKC) , intent(out) :: integral, abserr
9435 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9436 integer(IK) , intent(out) , contiguous :: sindex(:)
9437 integer(IK) , intent(out) :: neval
9438 integer(IK) , intent(out) :: nint
9439 integer(IK) :: err
9440 end function
9441#endif
9442
9443#if RK4_ENABLED
9444 module function QAGS_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9446 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK4
9447#endif
9448 use pm_kind, only: RKC => RK4
9449 procedure(real(RKC)) :: getFunc
9450 type(ninf_type) , intent(in) :: lb
9451 type(pinf_type) , intent(in) :: ub
9452 real(RKC) , intent(in) :: abstol
9453 real(RKC) , intent(in) :: reltol
9454 type(GK21_type) , intent(in) :: qrule
9455 type(weps_type) , intent(in) :: help
9456 real(RKC) , intent(out) :: integral, abserr
9457 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9458 integer(IK) , intent(out) , contiguous :: sindex(:)
9459 integer(IK) , intent(out) :: neval
9460 integer(IK) , intent(out) :: nint
9461 integer(IK) :: err
9462 end function
9463#endif
9464
9465#if RK3_ENABLED
9466 module function QAGS_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9468 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK3
9469#endif
9470 use pm_kind, only: RKC => RK3
9471 procedure(real(RKC)) :: getFunc
9472 type(ninf_type) , intent(in) :: lb
9473 type(pinf_type) , intent(in) :: ub
9474 real(RKC) , intent(in) :: abstol
9475 real(RKC) , intent(in) :: reltol
9476 type(GK21_type) , intent(in) :: qrule
9477 type(weps_type) , intent(in) :: help
9478 real(RKC) , intent(out) :: integral, abserr
9479 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9480 integer(IK) , intent(out) , contiguous :: sindex(:)
9481 integer(IK) , intent(out) :: neval
9482 integer(IK) , intent(out) :: nint
9483 integer(IK) :: err
9484 end function
9485#endif
9486
9487#if RK2_ENABLED
9488 module function QAGS_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9490 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK2
9491#endif
9492 use pm_kind, only: RKC => RK2
9493 procedure(real(RKC)) :: getFunc
9494 type(ninf_type) , intent(in) :: lb
9495 type(pinf_type) , intent(in) :: ub
9496 real(RKC) , intent(in) :: abstol
9497 real(RKC) , intent(in) :: reltol
9498 type(GK21_type) , intent(in) :: qrule
9499 type(weps_type) , intent(in) :: help
9500 real(RKC) , intent(out) :: integral, abserr
9501 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9502 integer(IK) , intent(out) , contiguous :: sindex(:)
9503 integer(IK) , intent(out) :: neval
9504 integer(IK) , intent(out) :: nint
9505 integer(IK) :: err
9506 end function
9507#endif
9508
9509#if RK1_ENABLED
9510 module function QAGS_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9512 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK1
9513#endif
9514 use pm_kind, only: RKC => RK1
9515 procedure(real(RKC)) :: getFunc
9516 type(ninf_type) , intent(in) :: lb
9517 type(pinf_type) , intent(in) :: ub
9518 real(RKC) , intent(in) :: abstol
9519 real(RKC) , intent(in) :: reltol
9520 type(GK21_type) , intent(in) :: qrule
9521 type(weps_type) , intent(in) :: help
9522 real(RKC) , intent(out) :: integral, abserr
9523 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9524 integer(IK) , intent(out) , contiguous :: sindex(:)
9525 integer(IK) , intent(out) :: neval
9526 integer(IK) , intent(out) :: nint
9527 integer(IK) :: err
9528 end function
9529#endif
9530
9531 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9532
9533 end interface
9534
9535 ! QAGS_GK31
9536
9537 interface getQuadErr
9538
9539 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9540
9541#if RK5_ENABLED
9542 module function QAGS_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9544 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK5
9545#endif
9546 use pm_kind, only: RKC => RK5
9547 procedure(real(RKC)) :: getFunc
9548 real(RKC) , intent(in) :: lb
9549 real(RKC) , intent(in) :: ub
9550 real(RKC) , intent(in) :: abstol
9551 real(RKC) , intent(in) :: reltol
9552 type(GK31_type) , intent(in) :: qrule
9553 type(weps_type) , intent(in) :: help
9554 real(RKC) , intent(out) :: integral, abserr
9555 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9556 integer(IK) , intent(out) , contiguous :: sindex(:)
9557 integer(IK) , intent(out) :: neval
9558 integer(IK) , intent(out) :: nint
9559 integer(IK) :: err
9560 end function
9561#endif
9562
9563#if RK4_ENABLED
9564 module function QAGS_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9566 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK4
9567#endif
9568 use pm_kind, only: RKC => RK4
9569 procedure(real(RKC)) :: getFunc
9570 real(RKC) , intent(in) :: lb
9571 real(RKC) , intent(in) :: ub
9572 real(RKC) , intent(in) :: abstol
9573 real(RKC) , intent(in) :: reltol
9574 type(GK31_type) , intent(in) :: qrule
9575 type(weps_type) , intent(in) :: help
9576 real(RKC) , intent(out) :: integral, abserr
9577 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9578 integer(IK) , intent(out) , contiguous :: sindex(:)
9579 integer(IK) , intent(out) :: neval
9580 integer(IK) , intent(out) :: nint
9581 integer(IK) :: err
9582 end function
9583#endif
9584
9585#if RK3_ENABLED
9586 module function QAGS_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9588 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK3
9589#endif
9590 use pm_kind, only: RKC => RK3
9591 procedure(real(RKC)) :: getFunc
9592 real(RKC) , intent(in) :: lb
9593 real(RKC) , intent(in) :: ub
9594 real(RKC) , intent(in) :: abstol
9595 real(RKC) , intent(in) :: reltol
9596 type(GK31_type) , intent(in) :: qrule
9597 type(weps_type) , intent(in) :: help
9598 real(RKC) , intent(out) :: integral, abserr
9599 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9600 integer(IK) , intent(out) , contiguous :: sindex(:)
9601 integer(IK) , intent(out) :: neval
9602 integer(IK) , intent(out) :: nint
9603 integer(IK) :: err
9604 end function
9605#endif
9606
9607#if RK2_ENABLED
9608 module function QAGS_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9610 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK2
9611#endif
9612 use pm_kind, only: RKC => RK2
9613 procedure(real(RKC)) :: getFunc
9614 real(RKC) , intent(in) :: lb
9615 real(RKC) , intent(in) :: ub
9616 real(RKC) , intent(in) :: abstol
9617 real(RKC) , intent(in) :: reltol
9618 type(GK31_type) , intent(in) :: qrule
9619 type(weps_type) , intent(in) :: help
9620 real(RKC) , intent(out) :: integral, abserr
9621 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9622 integer(IK) , intent(out) , contiguous :: sindex(:)
9623 integer(IK) , intent(out) :: neval
9624 integer(IK) , intent(out) :: nint
9625 integer(IK) :: err
9626 end function
9627#endif
9628
9629#if RK1_ENABLED
9630 module function QAGS_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9632 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK1
9633#endif
9634 use pm_kind, only: RKC => RK1
9635 procedure(real(RKC)) :: getFunc
9636 real(RKC) , intent(in) :: lb
9637 real(RKC) , intent(in) :: ub
9638 real(RKC) , intent(in) :: abstol
9639 real(RKC) , intent(in) :: reltol
9640 type(GK31_type) , intent(in) :: qrule
9641 type(weps_type) , intent(in) :: help
9642 real(RKC) , intent(out) :: integral, abserr
9643 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9644 integer(IK) , intent(out) , contiguous :: sindex(:)
9645 integer(IK) , intent(out) :: neval
9646 integer(IK) , intent(out) :: nint
9647 integer(IK) :: err
9648 end function
9649#endif
9650
9651 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9652
9653#if RK5_ENABLED
9654 module function QAGS_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9656 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK5
9657#endif
9658 use pm_kind, only: RKC => RK5
9659 procedure(real(RKC)) :: getFunc
9660 real(RKC) , intent(in) :: lb
9661 type(pinf_type) , intent(in) :: ub
9662 real(RKC) , intent(in) :: abstol
9663 real(RKC) , intent(in) :: reltol
9664 type(GK31_type) , intent(in) :: qrule
9665 type(weps_type) , intent(in) :: help
9666 real(RKC) , intent(out) :: integral, abserr
9667 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9668 integer(IK) , intent(out) , contiguous :: sindex(:)
9669 integer(IK) , intent(out) :: neval
9670 integer(IK) , intent(out) :: nint
9671 integer(IK) :: err
9672 end function
9673#endif
9674
9675#if RK4_ENABLED
9676 module function QAGS_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9678 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK4
9679#endif
9680 use pm_kind, only: RKC => RK4
9681 procedure(real(RKC)) :: getFunc
9682 real(RKC) , intent(in) :: lb
9683 type(pinf_type) , intent(in) :: ub
9684 real(RKC) , intent(in) :: abstol
9685 real(RKC) , intent(in) :: reltol
9686 type(GK31_type) , intent(in) :: qrule
9687 type(weps_type) , intent(in) :: help
9688 real(RKC) , intent(out) :: integral, abserr
9689 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9690 integer(IK) , intent(out) , contiguous :: sindex(:)
9691 integer(IK) , intent(out) :: neval
9692 integer(IK) , intent(out) :: nint
9693 integer(IK) :: err
9694 end function
9695#endif
9696
9697#if RK3_ENABLED
9698 module function QAGS_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9700 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK3
9701#endif
9702 use pm_kind, only: RKC => RK3
9703 procedure(real(RKC)) :: getFunc
9704 real(RKC) , intent(in) :: lb
9705 type(pinf_type) , intent(in) :: ub
9706 real(RKC) , intent(in) :: abstol
9707 real(RKC) , intent(in) :: reltol
9708 type(GK31_type) , intent(in) :: qrule
9709 type(weps_type) , intent(in) :: help
9710 real(RKC) , intent(out) :: integral, abserr
9711 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9712 integer(IK) , intent(out) , contiguous :: sindex(:)
9713 integer(IK) , intent(out) :: neval
9714 integer(IK) , intent(out) :: nint
9715 integer(IK) :: err
9716 end function
9717#endif
9718
9719#if RK2_ENABLED
9720 module function QAGS_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9722 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK2
9723#endif
9724 use pm_kind, only: RKC => RK2
9725 procedure(real(RKC)) :: getFunc
9726 real(RKC) , intent(in) :: lb
9727 type(pinf_type) , intent(in) :: ub
9728 real(RKC) , intent(in) :: abstol
9729 real(RKC) , intent(in) :: reltol
9730 type(GK31_type) , intent(in) :: qrule
9731 type(weps_type) , intent(in) :: help
9732 real(RKC) , intent(out) :: integral, abserr
9733 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9734 integer(IK) , intent(out) , contiguous :: sindex(:)
9735 integer(IK) , intent(out) :: neval
9736 integer(IK) , intent(out) :: nint
9737 integer(IK) :: err
9738 end function
9739#endif
9740
9741#if RK1_ENABLED
9742 module function QAGS_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9744 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK1
9745#endif
9746 use pm_kind, only: RKC => RK1
9747 procedure(real(RKC)) :: getFunc
9748 real(RKC) , intent(in) :: lb
9749 type(pinf_type) , intent(in) :: ub
9750 real(RKC) , intent(in) :: abstol
9751 real(RKC) , intent(in) :: reltol
9752 type(GK31_type) , intent(in) :: qrule
9753 type(weps_type) , intent(in) :: help
9754 real(RKC) , intent(out) :: integral, abserr
9755 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9756 integer(IK) , intent(out) , contiguous :: sindex(:)
9757 integer(IK) , intent(out) :: neval
9758 integer(IK) , intent(out) :: nint
9759 integer(IK) :: err
9760 end function
9761#endif
9762
9763 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9764
9765#if RK5_ENABLED
9766 module function QAGS_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9768 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK5
9769#endif
9770 use pm_kind, only: RKC => RK5
9771 procedure(real(RKC)) :: getFunc
9772 type(ninf_type) , intent(in) :: lb
9773 real(RKC) , intent(in) :: ub
9774 real(RKC) , intent(in) :: abstol
9775 real(RKC) , intent(in) :: reltol
9776 type(GK31_type) , intent(in) :: qrule
9777 type(weps_type) , intent(in) :: help
9778 real(RKC) , intent(out) :: integral, abserr
9779 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9780 integer(IK) , intent(out) , contiguous :: sindex(:)
9781 integer(IK) , intent(out) :: neval
9782 integer(IK) , intent(out) :: nint
9783 integer(IK) :: err
9784 end function
9785#endif
9786
9787#if RK4_ENABLED
9788 module function QAGS_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9790 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK4
9791#endif
9792 use pm_kind, only: RKC => RK4
9793 procedure(real(RKC)) :: getFunc
9794 type(ninf_type) , intent(in) :: lb
9795 real(RKC) , intent(in) :: ub
9796 real(RKC) , intent(in) :: abstol
9797 real(RKC) , intent(in) :: reltol
9798 type(GK31_type) , intent(in) :: qrule
9799 type(weps_type) , intent(in) :: help
9800 real(RKC) , intent(out) :: integral, abserr
9801 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9802 integer(IK) , intent(out) , contiguous :: sindex(:)
9803 integer(IK) , intent(out) :: neval
9804 integer(IK) , intent(out) :: nint
9805 integer(IK) :: err
9806 end function
9807#endif
9808
9809#if RK3_ENABLED
9810 module function QAGS_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9812 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK3
9813#endif
9814 use pm_kind, only: RKC => RK3
9815 procedure(real(RKC)) :: getFunc
9816 type(ninf_type) , intent(in) :: lb
9817 real(RKC) , intent(in) :: ub
9818 real(RKC) , intent(in) :: abstol
9819 real(RKC) , intent(in) :: reltol
9820 type(GK31_type) , intent(in) :: qrule
9821 type(weps_type) , intent(in) :: help
9822 real(RKC) , intent(out) :: integral, abserr
9823 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9824 integer(IK) , intent(out) , contiguous :: sindex(:)
9825 integer(IK) , intent(out) :: neval
9826 integer(IK) , intent(out) :: nint
9827 integer(IK) :: err
9828 end function
9829#endif
9830
9831#if RK2_ENABLED
9832 module function QAGS_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK2
9835#endif
9836 use pm_kind, only: RKC => RK2
9837 procedure(real(RKC)) :: getFunc
9838 type(ninf_type) , intent(in) :: lb
9839 real(RKC) , intent(in) :: ub
9840 real(RKC) , intent(in) :: abstol
9841 real(RKC) , intent(in) :: reltol
9842 type(GK31_type) , intent(in) :: qrule
9843 type(weps_type) , intent(in) :: help
9844 real(RKC) , intent(out) :: integral, abserr
9845 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9846 integer(IK) , intent(out) , contiguous :: sindex(:)
9847 integer(IK) , intent(out) :: neval
9848 integer(IK) , intent(out) :: nint
9849 integer(IK) :: err
9850 end function
9851#endif
9852
9853#if RK1_ENABLED
9854 module function QAGS_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9856 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK1
9857#endif
9858 use pm_kind, only: RKC => RK1
9859 procedure(real(RKC)) :: getFunc
9860 type(ninf_type) , intent(in) :: lb
9861 real(RKC) , intent(in) :: ub
9862 real(RKC) , intent(in) :: abstol
9863 real(RKC) , intent(in) :: reltol
9864 type(GK31_type) , intent(in) :: qrule
9865 type(weps_type) , intent(in) :: help
9866 real(RKC) , intent(out) :: integral, abserr
9867 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9868 integer(IK) , intent(out) , contiguous :: sindex(:)
9869 integer(IK) , intent(out) :: neval
9870 integer(IK) , intent(out) :: nint
9871 integer(IK) :: err
9872 end function
9873#endif
9874
9875 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9876
9877#if RK5_ENABLED
9878 module function QAGS_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9880 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK5
9881#endif
9882 use pm_kind, only: RKC => RK5
9883 procedure(real(RKC)) :: getFunc
9884 type(ninf_type) , intent(in) :: lb
9885 type(pinf_type) , intent(in) :: ub
9886 real(RKC) , intent(in) :: abstol
9887 real(RKC) , intent(in) :: reltol
9888 type(GK31_type) , intent(in) :: qrule
9889 type(weps_type) , intent(in) :: help
9890 real(RKC) , intent(out) :: integral, abserr
9891 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9892 integer(IK) , intent(out) , contiguous :: sindex(:)
9893 integer(IK) , intent(out) :: neval
9894 integer(IK) , intent(out) :: nint
9895 integer(IK) :: err
9896 end function
9897#endif
9898
9899#if RK4_ENABLED
9900 module function QAGS_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9902 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK4
9903#endif
9904 use pm_kind, only: RKC => RK4
9905 procedure(real(RKC)) :: getFunc
9906 type(ninf_type) , intent(in) :: lb
9907 type(pinf_type) , intent(in) :: ub
9908 real(RKC) , intent(in) :: abstol
9909 real(RKC) , intent(in) :: reltol
9910 type(GK31_type) , intent(in) :: qrule
9911 type(weps_type) , intent(in) :: help
9912 real(RKC) , intent(out) :: integral, abserr
9913 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9914 integer(IK) , intent(out) , contiguous :: sindex(:)
9915 integer(IK) , intent(out) :: neval
9916 integer(IK) , intent(out) :: nint
9917 integer(IK) :: err
9918 end function
9919#endif
9920
9921#if RK3_ENABLED
9922 module function QAGS_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9924 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK3
9925#endif
9926 use pm_kind, only: RKC => RK3
9927 procedure(real(RKC)) :: getFunc
9928 type(ninf_type) , intent(in) :: lb
9929 type(pinf_type) , intent(in) :: ub
9930 real(RKC) , intent(in) :: abstol
9931 real(RKC) , intent(in) :: reltol
9932 type(GK31_type) , intent(in) :: qrule
9933 type(weps_type) , intent(in) :: help
9934 real(RKC) , intent(out) :: integral, abserr
9935 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9936 integer(IK) , intent(out) , contiguous :: sindex(:)
9937 integer(IK) , intent(out) :: neval
9938 integer(IK) , intent(out) :: nint
9939 integer(IK) :: err
9940 end function
9941#endif
9942
9943#if RK2_ENABLED
9944 module function QAGS_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9946 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK2
9947#endif
9948 use pm_kind, only: RKC => RK2
9949 procedure(real(RKC)) :: getFunc
9950 type(ninf_type) , intent(in) :: lb
9951 type(pinf_type) , intent(in) :: ub
9952 real(RKC) , intent(in) :: abstol
9953 real(RKC) , intent(in) :: reltol
9954 type(GK31_type) , intent(in) :: qrule
9955 type(weps_type) , intent(in) :: help
9956 real(RKC) , intent(out) :: integral, abserr
9957 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9958 integer(IK) , intent(out) , contiguous :: sindex(:)
9959 integer(IK) , intent(out) :: neval
9960 integer(IK) , intent(out) :: nint
9961 integer(IK) :: err
9962 end function
9963#endif
9964
9965#if RK1_ENABLED
9966 module function QAGS_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9968 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK1
9969#endif
9970 use pm_kind, only: RKC => RK1
9971 procedure(real(RKC)) :: getFunc
9972 type(ninf_type) , intent(in) :: lb
9973 type(pinf_type) , intent(in) :: ub
9974 real(RKC) , intent(in) :: abstol
9975 real(RKC) , intent(in) :: reltol
9976 type(GK31_type) , intent(in) :: qrule
9977 type(weps_type) , intent(in) :: help
9978 real(RKC) , intent(out) :: integral, abserr
9979 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9980 integer(IK) , intent(out) , contiguous :: sindex(:)
9981 integer(IK) , intent(out) :: neval
9982 integer(IK) , intent(out) :: nint
9983 integer(IK) :: err
9984 end function
9985#endif
9986
9987 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9988
9989 end interface
9990
9991 ! QAGS_GK41
9992
9993 interface getQuadErr
9994
9995 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9996
9997#if RK5_ENABLED
9998 module function QAGS_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10000 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK5
10001#endif
10002 use pm_kind, only: RKC => RK5
10003 procedure(real(RKC)) :: getFunc
10004 real(RKC) , intent(in) :: lb
10005 real(RKC) , intent(in) :: ub
10006 real(RKC) , intent(in) :: abstol
10007 real(RKC) , intent(in) :: reltol
10008 type(GK41_type) , intent(in) :: qrule
10009 type(weps_type) , intent(in) :: help
10010 real(RKC) , intent(out) :: integral, abserr
10011 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10012 integer(IK) , intent(out) , contiguous :: sindex(:)
10013 integer(IK) , intent(out) :: neval
10014 integer(IK) , intent(out) :: nint
10015 integer(IK) :: err
10016 end function
10017#endif
10018
10019#if RK4_ENABLED
10020 module function QAGS_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10022 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK4
10023#endif
10024 use pm_kind, only: RKC => RK4
10025 procedure(real(RKC)) :: getFunc
10026 real(RKC) , intent(in) :: lb
10027 real(RKC) , intent(in) :: ub
10028 real(RKC) , intent(in) :: abstol
10029 real(RKC) , intent(in) :: reltol
10030 type(GK41_type) , intent(in) :: qrule
10031 type(weps_type) , intent(in) :: help
10032 real(RKC) , intent(out) :: integral, abserr
10033 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10034 integer(IK) , intent(out) , contiguous :: sindex(:)
10035 integer(IK) , intent(out) :: neval
10036 integer(IK) , intent(out) :: nint
10037 integer(IK) :: err
10038 end function
10039#endif
10040
10041#if RK3_ENABLED
10042 module function QAGS_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10044 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK3
10045#endif
10046 use pm_kind, only: RKC => RK3
10047 procedure(real(RKC)) :: getFunc
10048 real(RKC) , intent(in) :: lb
10049 real(RKC) , intent(in) :: ub
10050 real(RKC) , intent(in) :: abstol
10051 real(RKC) , intent(in) :: reltol
10052 type(GK41_type) , intent(in) :: qrule
10053 type(weps_type) , intent(in) :: help
10054 real(RKC) , intent(out) :: integral, abserr
10055 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10056 integer(IK) , intent(out) , contiguous :: sindex(:)
10057 integer(IK) , intent(out) :: neval
10058 integer(IK) , intent(out) :: nint
10059 integer(IK) :: err
10060 end function
10061#endif
10062
10063#if RK2_ENABLED
10064 module function QAGS_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10066 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK2
10067#endif
10068 use pm_kind, only: RKC => RK2
10069 procedure(real(RKC)) :: getFunc
10070 real(RKC) , intent(in) :: lb
10071 real(RKC) , intent(in) :: ub
10072 real(RKC) , intent(in) :: abstol
10073 real(RKC) , intent(in) :: reltol
10074 type(GK41_type) , intent(in) :: qrule
10075 type(weps_type) , intent(in) :: help
10076 real(RKC) , intent(out) :: integral, abserr
10077 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10078 integer(IK) , intent(out) , contiguous :: sindex(:)
10079 integer(IK) , intent(out) :: neval
10080 integer(IK) , intent(out) :: nint
10081 integer(IK) :: err
10082 end function
10083#endif
10084
10085#if RK1_ENABLED
10086 module function QAGS_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10088 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK1
10089#endif
10090 use pm_kind, only: RKC => RK1
10091 procedure(real(RKC)) :: getFunc
10092 real(RKC) , intent(in) :: lb
10093 real(RKC) , intent(in) :: ub
10094 real(RKC) , intent(in) :: abstol
10095 real(RKC) , intent(in) :: reltol
10096 type(GK41_type) , intent(in) :: qrule
10097 type(weps_type) , intent(in) :: help
10098 real(RKC) , intent(out) :: integral, abserr
10099 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10100 integer(IK) , intent(out) , contiguous :: sindex(:)
10101 integer(IK) , intent(out) :: neval
10102 integer(IK) , intent(out) :: nint
10103 integer(IK) :: err
10104 end function
10105#endif
10106
10107 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10108
10109#if RK5_ENABLED
10110 module function QAGS_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10112 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK5
10113#endif
10114 use pm_kind, only: RKC => RK5
10115 procedure(real(RKC)) :: getFunc
10116 real(RKC) , intent(in) :: lb
10117 type(pinf_type) , intent(in) :: ub
10118 real(RKC) , intent(in) :: abstol
10119 real(RKC) , intent(in) :: reltol
10120 type(GK41_type) , intent(in) :: qrule
10121 type(weps_type) , intent(in) :: help
10122 real(RKC) , intent(out) :: integral, abserr
10123 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10124 integer(IK) , intent(out) , contiguous :: sindex(:)
10125 integer(IK) , intent(out) :: neval
10126 integer(IK) , intent(out) :: nint
10127 integer(IK) :: err
10128 end function
10129#endif
10130
10131#if RK4_ENABLED
10132 module function QAGS_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10134 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK4
10135#endif
10136 use pm_kind, only: RKC => RK4
10137 procedure(real(RKC)) :: getFunc
10138 real(RKC) , intent(in) :: lb
10139 type(pinf_type) , intent(in) :: ub
10140 real(RKC) , intent(in) :: abstol
10141 real(RKC) , intent(in) :: reltol
10142 type(GK41_type) , intent(in) :: qrule
10143 type(weps_type) , intent(in) :: help
10144 real(RKC) , intent(out) :: integral, abserr
10145 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10146 integer(IK) , intent(out) , contiguous :: sindex(:)
10147 integer(IK) , intent(out) :: neval
10148 integer(IK) , intent(out) :: nint
10149 integer(IK) :: err
10150 end function
10151#endif
10152
10153#if RK3_ENABLED
10154 module function QAGS_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10156 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK3
10157#endif
10158 use pm_kind, only: RKC => RK3
10159 procedure(real(RKC)) :: getFunc
10160 real(RKC) , intent(in) :: lb
10161 type(pinf_type) , intent(in) :: ub
10162 real(RKC) , intent(in) :: abstol
10163 real(RKC) , intent(in) :: reltol
10164 type(GK41_type) , intent(in) :: qrule
10165 type(weps_type) , intent(in) :: help
10166 real(RKC) , intent(out) :: integral, abserr
10167 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10168 integer(IK) , intent(out) , contiguous :: sindex(:)
10169 integer(IK) , intent(out) :: neval
10170 integer(IK) , intent(out) :: nint
10171 integer(IK) :: err
10172 end function
10173#endif
10174
10175#if RK2_ENABLED
10176 module function QAGS_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10178 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK2
10179#endif
10180 use pm_kind, only: RKC => RK2
10181 procedure(real(RKC)) :: getFunc
10182 real(RKC) , intent(in) :: lb
10183 type(pinf_type) , intent(in) :: ub
10184 real(RKC) , intent(in) :: abstol
10185 real(RKC) , intent(in) :: reltol
10186 type(GK41_type) , intent(in) :: qrule
10187 type(weps_type) , intent(in) :: help
10188 real(RKC) , intent(out) :: integral, abserr
10189 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10190 integer(IK) , intent(out) , contiguous :: sindex(:)
10191 integer(IK) , intent(out) :: neval
10192 integer(IK) , intent(out) :: nint
10193 integer(IK) :: err
10194 end function
10195#endif
10196
10197#if RK1_ENABLED
10198 module function QAGS_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10200 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK1
10201#endif
10202 use pm_kind, only: RKC => RK1
10203 procedure(real(RKC)) :: getFunc
10204 real(RKC) , intent(in) :: lb
10205 type(pinf_type) , intent(in) :: ub
10206 real(RKC) , intent(in) :: abstol
10207 real(RKC) , intent(in) :: reltol
10208 type(GK41_type) , intent(in) :: qrule
10209 type(weps_type) , intent(in) :: help
10210 real(RKC) , intent(out) :: integral, abserr
10211 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10212 integer(IK) , intent(out) , contiguous :: sindex(:)
10213 integer(IK) , intent(out) :: neval
10214 integer(IK) , intent(out) :: nint
10215 integer(IK) :: err
10216 end function
10217#endif
10218
10219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10220
10221#if RK5_ENABLED
10222 module function QAGS_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10224 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK5
10225#endif
10226 use pm_kind, only: RKC => RK5
10227 procedure(real(RKC)) :: getFunc
10228 type(ninf_type) , intent(in) :: lb
10229 real(RKC) , intent(in) :: ub
10230 real(RKC) , intent(in) :: abstol
10231 real(RKC) , intent(in) :: reltol
10232 type(GK41_type) , intent(in) :: qrule
10233 type(weps_type) , intent(in) :: help
10234 real(RKC) , intent(out) :: integral, abserr
10235 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10236 integer(IK) , intent(out) , contiguous :: sindex(:)
10237 integer(IK) , intent(out) :: neval
10238 integer(IK) , intent(out) :: nint
10239 integer(IK) :: err
10240 end function
10241#endif
10242
10243#if RK4_ENABLED
10244 module function QAGS_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10246 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK4
10247#endif
10248 use pm_kind, only: RKC => RK4
10249 procedure(real(RKC)) :: getFunc
10250 type(ninf_type) , intent(in) :: lb
10251 real(RKC) , intent(in) :: ub
10252 real(RKC) , intent(in) :: abstol
10253 real(RKC) , intent(in) :: reltol
10254 type(GK41_type) , intent(in) :: qrule
10255 type(weps_type) , intent(in) :: help
10256 real(RKC) , intent(out) :: integral, abserr
10257 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10258 integer(IK) , intent(out) , contiguous :: sindex(:)
10259 integer(IK) , intent(out) :: neval
10260 integer(IK) , intent(out) :: nint
10261 integer(IK) :: err
10262 end function
10263#endif
10264
10265#if RK3_ENABLED
10266 module function QAGS_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10268 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK3
10269#endif
10270 use pm_kind, only: RKC => RK3
10271 procedure(real(RKC)) :: getFunc
10272 type(ninf_type) , intent(in) :: lb
10273 real(RKC) , intent(in) :: ub
10274 real(RKC) , intent(in) :: abstol
10275 real(RKC) , intent(in) :: reltol
10276 type(GK41_type) , intent(in) :: qrule
10277 type(weps_type) , intent(in) :: help
10278 real(RKC) , intent(out) :: integral, abserr
10279 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10280 integer(IK) , intent(out) , contiguous :: sindex(:)
10281 integer(IK) , intent(out) :: neval
10282 integer(IK) , intent(out) :: nint
10283 integer(IK) :: err
10284 end function
10285#endif
10286
10287#if RK2_ENABLED
10288 module function QAGS_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10290 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK2
10291#endif
10292 use pm_kind, only: RKC => RK2
10293 procedure(real(RKC)) :: getFunc
10294 type(ninf_type) , intent(in) :: lb
10295 real(RKC) , intent(in) :: ub
10296 real(RKC) , intent(in) :: abstol
10297 real(RKC) , intent(in) :: reltol
10298 type(GK41_type) , intent(in) :: qrule
10299 type(weps_type) , intent(in) :: help
10300 real(RKC) , intent(out) :: integral, abserr
10301 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10302 integer(IK) , intent(out) , contiguous :: sindex(:)
10303 integer(IK) , intent(out) :: neval
10304 integer(IK) , intent(out) :: nint
10305 integer(IK) :: err
10306 end function
10307#endif
10308
10309#if RK1_ENABLED
10310 module function QAGS_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10312 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK1
10313#endif
10314 use pm_kind, only: RKC => RK1
10315 procedure(real(RKC)) :: getFunc
10316 type(ninf_type) , intent(in) :: lb
10317 real(RKC) , intent(in) :: ub
10318 real(RKC) , intent(in) :: abstol
10319 real(RKC) , intent(in) :: reltol
10320 type(GK41_type) , intent(in) :: qrule
10321 type(weps_type) , intent(in) :: help
10322 real(RKC) , intent(out) :: integral, abserr
10323 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10324 integer(IK) , intent(out) , contiguous :: sindex(:)
10325 integer(IK) , intent(out) :: neval
10326 integer(IK) , intent(out) :: nint
10327 integer(IK) :: err
10328 end function
10329#endif
10330
10331 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10332
10333#if RK5_ENABLED
10334 module function QAGS_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10336 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK5
10337#endif
10338 use pm_kind, only: RKC => RK5
10339 procedure(real(RKC)) :: getFunc
10340 type(ninf_type) , intent(in) :: lb
10341 type(pinf_type) , intent(in) :: ub
10342 real(RKC) , intent(in) :: abstol
10343 real(RKC) , intent(in) :: reltol
10344 type(GK41_type) , intent(in) :: qrule
10345 type(weps_type) , intent(in) :: help
10346 real(RKC) , intent(out) :: integral, abserr
10347 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10348 integer(IK) , intent(out) , contiguous :: sindex(:)
10349 integer(IK) , intent(out) :: neval
10350 integer(IK) , intent(out) :: nint
10351 integer(IK) :: err
10352 end function
10353#endif
10354
10355#if RK4_ENABLED
10356 module function QAGS_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10358 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK4
10359#endif
10360 use pm_kind, only: RKC => RK4
10361 procedure(real(RKC)) :: getFunc
10362 type(ninf_type) , intent(in) :: lb
10363 type(pinf_type) , intent(in) :: ub
10364 real(RKC) , intent(in) :: abstol
10365 real(RKC) , intent(in) :: reltol
10366 type(GK41_type) , intent(in) :: qrule
10367 type(weps_type) , intent(in) :: help
10368 real(RKC) , intent(out) :: integral, abserr
10369 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10370 integer(IK) , intent(out) , contiguous :: sindex(:)
10371 integer(IK) , intent(out) :: neval
10372 integer(IK) , intent(out) :: nint
10373 integer(IK) :: err
10374 end function
10375#endif
10376
10377#if RK3_ENABLED
10378 module function QAGS_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10380 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK3
10381#endif
10382 use pm_kind, only: RKC => RK3
10383 procedure(real(RKC)) :: getFunc
10384 type(ninf_type) , intent(in) :: lb
10385 type(pinf_type) , intent(in) :: ub
10386 real(RKC) , intent(in) :: abstol
10387 real(RKC) , intent(in) :: reltol
10388 type(GK41_type) , intent(in) :: qrule
10389 type(weps_type) , intent(in) :: help
10390 real(RKC) , intent(out) :: integral, abserr
10391 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10392 integer(IK) , intent(out) , contiguous :: sindex(:)
10393 integer(IK) , intent(out) :: neval
10394 integer(IK) , intent(out) :: nint
10395 integer(IK) :: err
10396 end function
10397#endif
10398
10399#if RK2_ENABLED
10400 module function QAGS_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10402 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK2
10403#endif
10404 use pm_kind, only: RKC => RK2
10405 procedure(real(RKC)) :: getFunc
10406 type(ninf_type) , intent(in) :: lb
10407 type(pinf_type) , intent(in) :: ub
10408 real(RKC) , intent(in) :: abstol
10409 real(RKC) , intent(in) :: reltol
10410 type(GK41_type) , intent(in) :: qrule
10411 type(weps_type) , intent(in) :: help
10412 real(RKC) , intent(out) :: integral, abserr
10413 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10414 integer(IK) , intent(out) , contiguous :: sindex(:)
10415 integer(IK) , intent(out) :: neval
10416 integer(IK) , intent(out) :: nint
10417 integer(IK) :: err
10418 end function
10419#endif
10420
10421#if RK1_ENABLED
10422 module function QAGS_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10424 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK1
10425#endif
10426 use pm_kind, only: RKC => RK1
10427 procedure(real(RKC)) :: getFunc
10428 type(ninf_type) , intent(in) :: lb
10429 type(pinf_type) , intent(in) :: ub
10430 real(RKC) , intent(in) :: abstol
10431 real(RKC) , intent(in) :: reltol
10432 type(GK41_type) , intent(in) :: qrule
10433 type(weps_type) , intent(in) :: help
10434 real(RKC) , intent(out) :: integral, abserr
10435 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10436 integer(IK) , intent(out) , contiguous :: sindex(:)
10437 integer(IK) , intent(out) :: neval
10438 integer(IK) , intent(out) :: nint
10439 integer(IK) :: err
10440 end function
10441#endif
10442
10443 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10444
10445 end interface
10446
10447 ! QAGS_GK51
10448
10449 interface getQuadErr
10450
10451 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10452
10453#if RK5_ENABLED
10454 module function QAGS_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10456 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK5
10457#endif
10458 use pm_kind, only: RKC => RK5
10459 procedure(real(RKC)) :: getFunc
10460 real(RKC) , intent(in) :: lb
10461 real(RKC) , intent(in) :: ub
10462 real(RKC) , intent(in) :: abstol
10463 real(RKC) , intent(in) :: reltol
10464 type(GK51_type) , intent(in) :: qrule
10465 type(weps_type) , intent(in) :: help
10466 real(RKC) , intent(out) :: integral, abserr
10467 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10468 integer(IK) , intent(out) , contiguous :: sindex(:)
10469 integer(IK) , intent(out) :: neval
10470 integer(IK) , intent(out) :: nint
10471 integer(IK) :: err
10472 end function
10473#endif
10474
10475#if RK4_ENABLED
10476 module function QAGS_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10478 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK4
10479#endif
10480 use pm_kind, only: RKC => RK4
10481 procedure(real(RKC)) :: getFunc
10482 real(RKC) , intent(in) :: lb
10483 real(RKC) , intent(in) :: ub
10484 real(RKC) , intent(in) :: abstol
10485 real(RKC) , intent(in) :: reltol
10486 type(GK51_type) , intent(in) :: qrule
10487 type(weps_type) , intent(in) :: help
10488 real(RKC) , intent(out) :: integral, abserr
10489 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10490 integer(IK) , intent(out) , contiguous :: sindex(:)
10491 integer(IK) , intent(out) :: neval
10492 integer(IK) , intent(out) :: nint
10493 integer(IK) :: err
10494 end function
10495#endif
10496
10497#if RK3_ENABLED
10498 module function QAGS_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10500 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK3
10501#endif
10502 use pm_kind, only: RKC => RK3
10503 procedure(real(RKC)) :: getFunc
10504 real(RKC) , intent(in) :: lb
10505 real(RKC) , intent(in) :: ub
10506 real(RKC) , intent(in) :: abstol
10507 real(RKC) , intent(in) :: reltol
10508 type(GK51_type) , intent(in) :: qrule
10509 type(weps_type) , intent(in) :: help
10510 real(RKC) , intent(out) :: integral, abserr
10511 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10512 integer(IK) , intent(out) , contiguous :: sindex(:)
10513 integer(IK) , intent(out) :: neval
10514 integer(IK) , intent(out) :: nint
10515 integer(IK) :: err
10516 end function
10517#endif
10518
10519#if RK2_ENABLED
10520 module function QAGS_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10522 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK2
10523#endif
10524 use pm_kind, only: RKC => RK2
10525 procedure(real(RKC)) :: getFunc
10526 real(RKC) , intent(in) :: lb
10527 real(RKC) , intent(in) :: ub
10528 real(RKC) , intent(in) :: abstol
10529 real(RKC) , intent(in) :: reltol
10530 type(GK51_type) , intent(in) :: qrule
10531 type(weps_type) , intent(in) :: help
10532 real(RKC) , intent(out) :: integral, abserr
10533 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10534 integer(IK) , intent(out) , contiguous :: sindex(:)
10535 integer(IK) , intent(out) :: neval
10536 integer(IK) , intent(out) :: nint
10537 integer(IK) :: err
10538 end function
10539#endif
10540
10541#if RK1_ENABLED
10542 module function QAGS_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10544 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK1
10545#endif
10546 use pm_kind, only: RKC => RK1
10547 procedure(real(RKC)) :: getFunc
10548 real(RKC) , intent(in) :: lb
10549 real(RKC) , intent(in) :: ub
10550 real(RKC) , intent(in) :: abstol
10551 real(RKC) , intent(in) :: reltol
10552 type(GK51_type) , intent(in) :: qrule
10553 type(weps_type) , intent(in) :: help
10554 real(RKC) , intent(out) :: integral, abserr
10555 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10556 integer(IK) , intent(out) , contiguous :: sindex(:)
10557 integer(IK) , intent(out) :: neval
10558 integer(IK) , intent(out) :: nint
10559 integer(IK) :: err
10560 end function
10561#endif
10562
10563 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10564
10565#if RK5_ENABLED
10566 module function QAGS_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10568 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK5
10569#endif
10570 use pm_kind, only: RKC => RK5
10571 procedure(real(RKC)) :: getFunc
10572 real(RKC) , intent(in) :: lb
10573 type(pinf_type) , intent(in) :: ub
10574 real(RKC) , intent(in) :: abstol
10575 real(RKC) , intent(in) :: reltol
10576 type(GK51_type) , intent(in) :: qrule
10577 type(weps_type) , intent(in) :: help
10578 real(RKC) , intent(out) :: integral, abserr
10579 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10580 integer(IK) , intent(out) , contiguous :: sindex(:)
10581 integer(IK) , intent(out) :: neval
10582 integer(IK) , intent(out) :: nint
10583 integer(IK) :: err
10584 end function
10585#endif
10586
10587#if RK4_ENABLED
10588 module function QAGS_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10590 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK4
10591#endif
10592 use pm_kind, only: RKC => RK4
10593 procedure(real(RKC)) :: getFunc
10594 real(RKC) , intent(in) :: lb
10595 type(pinf_type) , intent(in) :: ub
10596 real(RKC) , intent(in) :: abstol
10597 real(RKC) , intent(in) :: reltol
10598 type(GK51_type) , intent(in) :: qrule
10599 type(weps_type) , intent(in) :: help
10600 real(RKC) , intent(out) :: integral, abserr
10601 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10602 integer(IK) , intent(out) , contiguous :: sindex(:)
10603 integer(IK) , intent(out) :: neval
10604 integer(IK) , intent(out) :: nint
10605 integer(IK) :: err
10606 end function
10607#endif
10608
10609#if RK3_ENABLED
10610 module function QAGS_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10612 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK3
10613#endif
10614 use pm_kind, only: RKC => RK3
10615 procedure(real(RKC)) :: getFunc
10616 real(RKC) , intent(in) :: lb
10617 type(pinf_type) , intent(in) :: ub
10618 real(RKC) , intent(in) :: abstol
10619 real(RKC) , intent(in) :: reltol
10620 type(GK51_type) , intent(in) :: qrule
10621 type(weps_type) , intent(in) :: help
10622 real(RKC) , intent(out) :: integral, abserr
10623 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10624 integer(IK) , intent(out) , contiguous :: sindex(:)
10625 integer(IK) , intent(out) :: neval
10626 integer(IK) , intent(out) :: nint
10627 integer(IK) :: err
10628 end function
10629#endif
10630
10631#if RK2_ENABLED
10632 module function QAGS_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10634 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK2
10635#endif
10636 use pm_kind, only: RKC => RK2
10637 procedure(real(RKC)) :: getFunc
10638 real(RKC) , intent(in) :: lb
10639 type(pinf_type) , intent(in) :: ub
10640 real(RKC) , intent(in) :: abstol
10641 real(RKC) , intent(in) :: reltol
10642 type(GK51_type) , intent(in) :: qrule
10643 type(weps_type) , intent(in) :: help
10644 real(RKC) , intent(out) :: integral, abserr
10645 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10646 integer(IK) , intent(out) , contiguous :: sindex(:)
10647 integer(IK) , intent(out) :: neval
10648 integer(IK) , intent(out) :: nint
10649 integer(IK) :: err
10650 end function
10651#endif
10652
10653#if RK1_ENABLED
10654 module function QAGS_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10656 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK1
10657#endif
10658 use pm_kind, only: RKC => RK1
10659 procedure(real(RKC)) :: getFunc
10660 real(RKC) , intent(in) :: lb
10661 type(pinf_type) , intent(in) :: ub
10662 real(RKC) , intent(in) :: abstol
10663 real(RKC) , intent(in) :: reltol
10664 type(GK51_type) , intent(in) :: qrule
10665 type(weps_type) , intent(in) :: help
10666 real(RKC) , intent(out) :: integral, abserr
10667 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10668 integer(IK) , intent(out) , contiguous :: sindex(:)
10669 integer(IK) , intent(out) :: neval
10670 integer(IK) , intent(out) :: nint
10671 integer(IK) :: err
10672 end function
10673#endif
10674
10675 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10676
10677#if RK5_ENABLED
10678 module function QAGS_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10680 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK5
10681#endif
10682 use pm_kind, only: RKC => RK5
10683 procedure(real(RKC)) :: getFunc
10684 type(ninf_type) , intent(in) :: lb
10685 real(RKC) , intent(in) :: ub
10686 real(RKC) , intent(in) :: abstol
10687 real(RKC) , intent(in) :: reltol
10688 type(GK51_type) , intent(in) :: qrule
10689 type(weps_type) , intent(in) :: help
10690 real(RKC) , intent(out) :: integral, abserr
10691 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10692 integer(IK) , intent(out) , contiguous :: sindex(:)
10693 integer(IK) , intent(out) :: neval
10694 integer(IK) , intent(out) :: nint
10695 integer(IK) :: err
10696 end function
10697#endif
10698
10699#if RK4_ENABLED
10700 module function QAGS_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10702 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK4
10703#endif
10704 use pm_kind, only: RKC => RK4
10705 procedure(real(RKC)) :: getFunc
10706 type(ninf_type) , intent(in) :: lb
10707 real(RKC) , intent(in) :: ub
10708 real(RKC) , intent(in) :: abstol
10709 real(RKC) , intent(in) :: reltol
10710 type(GK51_type) , intent(in) :: qrule
10711 type(weps_type) , intent(in) :: help
10712 real(RKC) , intent(out) :: integral, abserr
10713 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10714 integer(IK) , intent(out) , contiguous :: sindex(:)
10715 integer(IK) , intent(out) :: neval
10716 integer(IK) , intent(out) :: nint
10717 integer(IK) :: err
10718 end function
10719#endif
10720
10721#if RK3_ENABLED
10722 module function QAGS_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10724 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK3
10725#endif
10726 use pm_kind, only: RKC => RK3
10727 procedure(real(RKC)) :: getFunc
10728 type(ninf_type) , intent(in) :: lb
10729 real(RKC) , intent(in) :: ub
10730 real(RKC) , intent(in) :: abstol
10731 real(RKC) , intent(in) :: reltol
10732 type(GK51_type) , intent(in) :: qrule
10733 type(weps_type) , intent(in) :: help
10734 real(RKC) , intent(out) :: integral, abserr
10735 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10736 integer(IK) , intent(out) , contiguous :: sindex(:)
10737 integer(IK) , intent(out) :: neval
10738 integer(IK) , intent(out) :: nint
10739 integer(IK) :: err
10740 end function
10741#endif
10742
10743#if RK2_ENABLED
10744 module function QAGS_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10746 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK2
10747#endif
10748 use pm_kind, only: RKC => RK2
10749 procedure(real(RKC)) :: getFunc
10750 type(ninf_type) , intent(in) :: lb
10751 real(RKC) , intent(in) :: ub
10752 real(RKC) , intent(in) :: abstol
10753 real(RKC) , intent(in) :: reltol
10754 type(GK51_type) , intent(in) :: qrule
10755 type(weps_type) , intent(in) :: help
10756 real(RKC) , intent(out) :: integral, abserr
10757 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10758 integer(IK) , intent(out) , contiguous :: sindex(:)
10759 integer(IK) , intent(out) :: neval
10760 integer(IK) , intent(out) :: nint
10761 integer(IK) :: err
10762 end function
10763#endif
10764
10765#if RK1_ENABLED
10766 module function QAGS_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10768 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK1
10769#endif
10770 use pm_kind, only: RKC => RK1
10771 procedure(real(RKC)) :: getFunc
10772 type(ninf_type) , intent(in) :: lb
10773 real(RKC) , intent(in) :: ub
10774 real(RKC) , intent(in) :: abstol
10775 real(RKC) , intent(in) :: reltol
10776 type(GK51_type) , intent(in) :: qrule
10777 type(weps_type) , intent(in) :: help
10778 real(RKC) , intent(out) :: integral, abserr
10779 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10780 integer(IK) , intent(out) , contiguous :: sindex(:)
10781 integer(IK) , intent(out) :: neval
10782 integer(IK) , intent(out) :: nint
10783 integer(IK) :: err
10784 end function
10785#endif
10786
10787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10788
10789#if RK5_ENABLED
10790 module function QAGS_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK5
10793#endif
10794 use pm_kind, only: RKC => RK5
10795 procedure(real(RKC)) :: getFunc
10796 type(ninf_type) , intent(in) :: lb
10797 type(pinf_type) , intent(in) :: ub
10798 real(RKC) , intent(in) :: abstol
10799 real(RKC) , intent(in) :: reltol
10800 type(GK51_type) , intent(in) :: qrule
10801 type(weps_type) , intent(in) :: help
10802 real(RKC) , intent(out) :: integral, abserr
10803 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10804 integer(IK) , intent(out) , contiguous :: sindex(:)
10805 integer(IK) , intent(out) :: neval
10806 integer(IK) , intent(out) :: nint
10807 integer(IK) :: err
10808 end function
10809#endif
10810
10811#if RK4_ENABLED
10812 module function QAGS_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10814 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK4
10815#endif
10816 use pm_kind, only: RKC => RK4
10817 procedure(real(RKC)) :: getFunc
10818 type(ninf_type) , intent(in) :: lb
10819 type(pinf_type) , intent(in) :: ub
10820 real(RKC) , intent(in) :: abstol
10821 real(RKC) , intent(in) :: reltol
10822 type(GK51_type) , intent(in) :: qrule
10823 type(weps_type) , intent(in) :: help
10824 real(RKC) , intent(out) :: integral, abserr
10825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10826 integer(IK) , intent(out) , contiguous :: sindex(:)
10827 integer(IK) , intent(out) :: neval
10828 integer(IK) , intent(out) :: nint
10829 integer(IK) :: err
10830 end function
10831#endif
10832
10833#if RK3_ENABLED
10834 module function QAGS_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK3
10837#endif
10838 use pm_kind, only: RKC => RK3
10839 procedure(real(RKC)) :: getFunc
10840 type(ninf_type) , intent(in) :: lb
10841 type(pinf_type) , intent(in) :: ub
10842 real(RKC) , intent(in) :: abstol
10843 real(RKC) , intent(in) :: reltol
10844 type(GK51_type) , intent(in) :: qrule
10845 type(weps_type) , intent(in) :: help
10846 real(RKC) , intent(out) :: integral, abserr
10847 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10848 integer(IK) , intent(out) , contiguous :: sindex(:)
10849 integer(IK) , intent(out) :: neval
10850 integer(IK) , intent(out) :: nint
10851 integer(IK) :: err
10852 end function
10853#endif
10854
10855#if RK2_ENABLED
10856 module function QAGS_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10858 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK2
10859#endif
10860 use pm_kind, only: RKC => RK2
10861 procedure(real(RKC)) :: getFunc
10862 type(ninf_type) , intent(in) :: lb
10863 type(pinf_type) , intent(in) :: ub
10864 real(RKC) , intent(in) :: abstol
10865 real(RKC) , intent(in) :: reltol
10866 type(GK51_type) , intent(in) :: qrule
10867 type(weps_type) , intent(in) :: help
10868 real(RKC) , intent(out) :: integral, abserr
10869 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10870 integer(IK) , intent(out) , contiguous :: sindex(:)
10871 integer(IK) , intent(out) :: neval
10872 integer(IK) , intent(out) :: nint
10873 integer(IK) :: err
10874 end function
10875#endif
10876
10877#if RK1_ENABLED
10878 module function QAGS_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10880 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK1
10881#endif
10882 use pm_kind, only: RKC => RK1
10883 procedure(real(RKC)) :: getFunc
10884 type(ninf_type) , intent(in) :: lb
10885 type(pinf_type) , intent(in) :: ub
10886 real(RKC) , intent(in) :: abstol
10887 real(RKC) , intent(in) :: reltol
10888 type(GK51_type) , intent(in) :: qrule
10889 type(weps_type) , intent(in) :: help
10890 real(RKC) , intent(out) :: integral, abserr
10891 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10892 integer(IK) , intent(out) , contiguous :: sindex(:)
10893 integer(IK) , intent(out) :: neval
10894 integer(IK) , intent(out) :: nint
10895 integer(IK) :: err
10896 end function
10897#endif
10898
10899 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10900
10901 end interface
10902
10903 ! QAGS_GK61
10904
10905 interface getQuadErr
10906
10907 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10908
10909#if RK5_ENABLED
10910 module function QAGS_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10912 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK5
10913#endif
10914 use pm_kind, only: RKC => RK5
10915 procedure(real(RKC)) :: getFunc
10916 real(RKC) , intent(in) :: lb
10917 real(RKC) , intent(in) :: ub
10918 real(RKC) , intent(in) :: abstol
10919 real(RKC) , intent(in) :: reltol
10920 type(GK61_type) , intent(in) :: qrule
10921 type(weps_type) , intent(in) :: help
10922 real(RKC) , intent(out) :: integral, abserr
10923 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10924 integer(IK) , intent(out) , contiguous :: sindex(:)
10925 integer(IK) , intent(out) :: neval
10926 integer(IK) , intent(out) :: nint
10927 integer(IK) :: err
10928 end function
10929#endif
10930
10931#if RK4_ENABLED
10932 module function QAGS_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10934 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK4
10935#endif
10936 use pm_kind, only: RKC => RK4
10937 procedure(real(RKC)) :: getFunc
10938 real(RKC) , intent(in) :: lb
10939 real(RKC) , intent(in) :: ub
10940 real(RKC) , intent(in) :: abstol
10941 real(RKC) , intent(in) :: reltol
10942 type(GK61_type) , intent(in) :: qrule
10943 type(weps_type) , intent(in) :: help
10944 real(RKC) , intent(out) :: integral, abserr
10945 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10946 integer(IK) , intent(out) , contiguous :: sindex(:)
10947 integer(IK) , intent(out) :: neval
10948 integer(IK) , intent(out) :: nint
10949 integer(IK) :: err
10950 end function
10951#endif
10952
10953#if RK3_ENABLED
10954 module function QAGS_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10956 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK3
10957#endif
10958 use pm_kind, only: RKC => RK3
10959 procedure(real(RKC)) :: getFunc
10960 real(RKC) , intent(in) :: lb
10961 real(RKC) , intent(in) :: ub
10962 real(RKC) , intent(in) :: abstol
10963 real(RKC) , intent(in) :: reltol
10964 type(GK61_type) , intent(in) :: qrule
10965 type(weps_type) , intent(in) :: help
10966 real(RKC) , intent(out) :: integral, abserr
10967 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10968 integer(IK) , intent(out) , contiguous :: sindex(:)
10969 integer(IK) , intent(out) :: neval
10970 integer(IK) , intent(out) :: nint
10971 integer(IK) :: err
10972 end function
10973#endif
10974
10975#if RK2_ENABLED
10976 module function QAGS_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10978 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK2
10979#endif
10980 use pm_kind, only: RKC => RK2
10981 procedure(real(RKC)) :: getFunc
10982 real(RKC) , intent(in) :: lb
10983 real(RKC) , intent(in) :: ub
10984 real(RKC) , intent(in) :: abstol
10985 real(RKC) , intent(in) :: reltol
10986 type(GK61_type) , intent(in) :: qrule
10987 type(weps_type) , intent(in) :: help
10988 real(RKC) , intent(out) :: integral, abserr
10989 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10990 integer(IK) , intent(out) , contiguous :: sindex(:)
10991 integer(IK) , intent(out) :: neval
10992 integer(IK) , intent(out) :: nint
10993 integer(IK) :: err
10994 end function
10995#endif
10996
10997#if RK1_ENABLED
10998 module function QAGS_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11000 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK1
11001#endif
11002 use pm_kind, only: RKC => RK1
11003 procedure(real(RKC)) :: getFunc
11004 real(RKC) , intent(in) :: lb
11005 real(RKC) , intent(in) :: ub
11006 real(RKC) , intent(in) :: abstol
11007 real(RKC) , intent(in) :: reltol
11008 type(GK61_type) , intent(in) :: qrule
11009 type(weps_type) , intent(in) :: help
11010 real(RKC) , intent(out) :: integral, abserr
11011 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11012 integer(IK) , intent(out) , contiguous :: sindex(:)
11013 integer(IK) , intent(out) :: neval
11014 integer(IK) , intent(out) :: nint
11015 integer(IK) :: err
11016 end function
11017#endif
11018
11019 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11020
11021#if RK5_ENABLED
11022 module function QAGS_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11024 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK5
11025#endif
11026 use pm_kind, only: RKC => RK5
11027 procedure(real(RKC)) :: getFunc
11028 real(RKC) , intent(in) :: lb
11029 type(pinf_type) , intent(in) :: ub
11030 real(RKC) , intent(in) :: abstol
11031 real(RKC) , intent(in) :: reltol
11032 type(GK61_type) , intent(in) :: qrule
11033 type(weps_type) , intent(in) :: help
11034 real(RKC) , intent(out) :: integral, abserr
11035 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11036 integer(IK) , intent(out) , contiguous :: sindex(:)
11037 integer(IK) , intent(out) :: neval
11038 integer(IK) , intent(out) :: nint
11039 integer(IK) :: err
11040 end function
11041#endif
11042
11043#if RK4_ENABLED
11044 module function QAGS_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11046 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK4
11047#endif
11048 use pm_kind, only: RKC => RK4
11049 procedure(real(RKC)) :: getFunc
11050 real(RKC) , intent(in) :: lb
11051 type(pinf_type) , intent(in) :: ub
11052 real(RKC) , intent(in) :: abstol
11053 real(RKC) , intent(in) :: reltol
11054 type(GK61_type) , intent(in) :: qrule
11055 type(weps_type) , intent(in) :: help
11056 real(RKC) , intent(out) :: integral, abserr
11057 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11058 integer(IK) , intent(out) , contiguous :: sindex(:)
11059 integer(IK) , intent(out) :: neval
11060 integer(IK) , intent(out) :: nint
11061 integer(IK) :: err
11062 end function
11063#endif
11064
11065#if RK3_ENABLED
11066 module function QAGS_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11068 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK3
11069#endif
11070 use pm_kind, only: RKC => RK3
11071 procedure(real(RKC)) :: getFunc
11072 real(RKC) , intent(in) :: lb
11073 type(pinf_type) , intent(in) :: ub
11074 real(RKC) , intent(in) :: abstol
11075 real(RKC) , intent(in) :: reltol
11076 type(GK61_type) , intent(in) :: qrule
11077 type(weps_type) , intent(in) :: help
11078 real(RKC) , intent(out) :: integral, abserr
11079 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11080 integer(IK) , intent(out) , contiguous :: sindex(:)
11081 integer(IK) , intent(out) :: neval
11082 integer(IK) , intent(out) :: nint
11083 integer(IK) :: err
11084 end function
11085#endif
11086
11087#if RK2_ENABLED
11088 module function QAGS_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11090 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK2
11091#endif
11092 use pm_kind, only: RKC => RK2
11093 procedure(real(RKC)) :: getFunc
11094 real(RKC) , intent(in) :: lb
11095 type(pinf_type) , intent(in) :: ub
11096 real(RKC) , intent(in) :: abstol
11097 real(RKC) , intent(in) :: reltol
11098 type(GK61_type) , intent(in) :: qrule
11099 type(weps_type) , intent(in) :: help
11100 real(RKC) , intent(out) :: integral, abserr
11101 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11102 integer(IK) , intent(out) , contiguous :: sindex(:)
11103 integer(IK) , intent(out) :: neval
11104 integer(IK) , intent(out) :: nint
11105 integer(IK) :: err
11106 end function
11107#endif
11108
11109#if RK1_ENABLED
11110 module function QAGS_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11112 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK1
11113#endif
11114 use pm_kind, only: RKC => RK1
11115 procedure(real(RKC)) :: getFunc
11116 real(RKC) , intent(in) :: lb
11117 type(pinf_type) , intent(in) :: ub
11118 real(RKC) , intent(in) :: abstol
11119 real(RKC) , intent(in) :: reltol
11120 type(GK61_type) , intent(in) :: qrule
11121 type(weps_type) , intent(in) :: help
11122 real(RKC) , intent(out) :: integral, abserr
11123 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11124 integer(IK) , intent(out) , contiguous :: sindex(:)
11125 integer(IK) , intent(out) :: neval
11126 integer(IK) , intent(out) :: nint
11127 integer(IK) :: err
11128 end function
11129#endif
11130
11131 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11132
11133#if RK5_ENABLED
11134 module function QAGS_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11136 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK5
11137#endif
11138 use pm_kind, only: RKC => RK5
11139 procedure(real(RKC)) :: getFunc
11140 type(ninf_type) , intent(in) :: lb
11141 real(RKC) , intent(in) :: ub
11142 real(RKC) , intent(in) :: abstol
11143 real(RKC) , intent(in) :: reltol
11144 type(GK61_type) , intent(in) :: qrule
11145 type(weps_type) , intent(in) :: help
11146 real(RKC) , intent(out) :: integral, abserr
11147 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11148 integer(IK) , intent(out) , contiguous :: sindex(:)
11149 integer(IK) , intent(out) :: neval
11150 integer(IK) , intent(out) :: nint
11151 integer(IK) :: err
11152 end function
11153#endif
11154
11155#if RK4_ENABLED
11156 module function QAGS_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11158 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK4
11159#endif
11160 use pm_kind, only: RKC => RK4
11161 procedure(real(RKC)) :: getFunc
11162 type(ninf_type) , intent(in) :: lb
11163 real(RKC) , intent(in) :: ub
11164 real(RKC) , intent(in) :: abstol
11165 real(RKC) , intent(in) :: reltol
11166 type(GK61_type) , intent(in) :: qrule
11167 type(weps_type) , intent(in) :: help
11168 real(RKC) , intent(out) :: integral, abserr
11169 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11170 integer(IK) , intent(out) , contiguous :: sindex(:)
11171 integer(IK) , intent(out) :: neval
11172 integer(IK) , intent(out) :: nint
11173 integer(IK) :: err
11174 end function
11175#endif
11176
11177#if RK3_ENABLED
11178 module function QAGS_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11180 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK3
11181#endif
11182 use pm_kind, only: RKC => RK3
11183 procedure(real(RKC)) :: getFunc
11184 type(ninf_type) , intent(in) :: lb
11185 real(RKC) , intent(in) :: ub
11186 real(RKC) , intent(in) :: abstol
11187 real(RKC) , intent(in) :: reltol
11188 type(GK61_type) , intent(in) :: qrule
11189 type(weps_type) , intent(in) :: help
11190 real(RKC) , intent(out) :: integral, abserr
11191 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11192 integer(IK) , intent(out) , contiguous :: sindex(:)
11193 integer(IK) , intent(out) :: neval
11194 integer(IK) , intent(out) :: nint
11195 integer(IK) :: err
11196 end function
11197#endif
11198
11199#if RK2_ENABLED
11200 module function QAGS_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11202 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK2
11203#endif
11204 use pm_kind, only: RKC => RK2
11205 procedure(real(RKC)) :: getFunc
11206 type(ninf_type) , intent(in) :: lb
11207 real(RKC) , intent(in) :: ub
11208 real(RKC) , intent(in) :: abstol
11209 real(RKC) , intent(in) :: reltol
11210 type(GK61_type) , intent(in) :: qrule
11211 type(weps_type) , intent(in) :: help
11212 real(RKC) , intent(out) :: integral, abserr
11213 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11214 integer(IK) , intent(out) , contiguous :: sindex(:)
11215 integer(IK) , intent(out) :: neval
11216 integer(IK) , intent(out) :: nint
11217 integer(IK) :: err
11218 end function
11219#endif
11220
11221#if RK1_ENABLED
11222 module function QAGS_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11224 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK1
11225#endif
11226 use pm_kind, only: RKC => RK1
11227 procedure(real(RKC)) :: getFunc
11228 type(ninf_type) , intent(in) :: lb
11229 real(RKC) , intent(in) :: ub
11230 real(RKC) , intent(in) :: abstol
11231 real(RKC) , intent(in) :: reltol
11232 type(GK61_type) , intent(in) :: qrule
11233 type(weps_type) , intent(in) :: help
11234 real(RKC) , intent(out) :: integral, abserr
11235 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11236 integer(IK) , intent(out) , contiguous :: sindex(:)
11237 integer(IK) , intent(out) :: neval
11238 integer(IK) , intent(out) :: nint
11239 integer(IK) :: err
11240 end function
11241#endif
11242
11243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11244
11245#if RK5_ENABLED
11246 module function QAGS_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11248 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK5
11249#endif
11250 use pm_kind, only: RKC => RK5
11251 procedure(real(RKC)) :: getFunc
11252 type(ninf_type) , intent(in) :: lb
11253 type(pinf_type) , intent(in) :: ub
11254 real(RKC) , intent(in) :: abstol
11255 real(RKC) , intent(in) :: reltol
11256 type(GK61_type) , intent(in) :: qrule
11257 type(weps_type) , intent(in) :: help
11258 real(RKC) , intent(out) :: integral, abserr
11259 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11260 integer(IK) , intent(out) , contiguous :: sindex(:)
11261 integer(IK) , intent(out) :: neval
11262 integer(IK) , intent(out) :: nint
11263 integer(IK) :: err
11264 end function
11265#endif
11266
11267#if RK4_ENABLED
11268 module function QAGS_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK4
11271#endif
11272 use pm_kind, only: RKC => RK4
11273 procedure(real(RKC)) :: getFunc
11274 type(ninf_type) , intent(in) :: lb
11275 type(pinf_type) , intent(in) :: ub
11276 real(RKC) , intent(in) :: abstol
11277 real(RKC) , intent(in) :: reltol
11278 type(GK61_type) , intent(in) :: qrule
11279 type(weps_type) , intent(in) :: help
11280 real(RKC) , intent(out) :: integral, abserr
11281 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11282 integer(IK) , intent(out) , contiguous :: sindex(:)
11283 integer(IK) , intent(out) :: neval
11284 integer(IK) , intent(out) :: nint
11285 integer(IK) :: err
11286 end function
11287#endif
11288
11289#if RK3_ENABLED
11290 module function QAGS_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11292 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK3
11293#endif
11294 use pm_kind, only: RKC => RK3
11295 procedure(real(RKC)) :: getFunc
11296 type(ninf_type) , intent(in) :: lb
11297 type(pinf_type) , intent(in) :: ub
11298 real(RKC) , intent(in) :: abstol
11299 real(RKC) , intent(in) :: reltol
11300 type(GK61_type) , intent(in) :: qrule
11301 type(weps_type) , intent(in) :: help
11302 real(RKC) , intent(out) :: integral, abserr
11303 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11304 integer(IK) , intent(out) , contiguous :: sindex(:)
11305 integer(IK) , intent(out) :: neval
11306 integer(IK) , intent(out) :: nint
11307 integer(IK) :: err
11308 end function
11309#endif
11310
11311#if RK2_ENABLED
11312 module function QAGS_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK2
11315#endif
11316 use pm_kind, only: RKC => RK2
11317 procedure(real(RKC)) :: getFunc
11318 type(ninf_type) , intent(in) :: lb
11319 type(pinf_type) , intent(in) :: ub
11320 real(RKC) , intent(in) :: abstol
11321 real(RKC) , intent(in) :: reltol
11322 type(GK61_type) , intent(in) :: qrule
11323 type(weps_type) , intent(in) :: help
11324 real(RKC) , intent(out) :: integral, abserr
11325 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11326 integer(IK) , intent(out) , contiguous :: sindex(:)
11327 integer(IK) , intent(out) :: neval
11328 integer(IK) , intent(out) :: nint
11329 integer(IK) :: err
11330 end function
11331#endif
11332
11333#if RK1_ENABLED
11334 module function QAGS_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11336 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK1
11337#endif
11338 use pm_kind, only: RKC => RK1
11339 procedure(real(RKC)) :: getFunc
11340 type(ninf_type) , intent(in) :: lb
11341 type(pinf_type) , intent(in) :: ub
11342 real(RKC) , intent(in) :: abstol
11343 real(RKC) , intent(in) :: reltol
11344 type(GK61_type) , intent(in) :: qrule
11345 type(weps_type) , intent(in) :: help
11346 real(RKC) , intent(out) :: integral, abserr
11347 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11348 integer(IK) , intent(out) , contiguous :: sindex(:)
11349 integer(IK) , intent(out) :: neval
11350 integer(IK) , intent(out) :: nint
11351 integer(IK) :: err
11352 end function
11353#endif
11354
11355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11356
11357 end interface
11358
11359 ! QAGS_GKXX
11360
11361 interface getQuadErr
11362
11363 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11364
11365#if RK5_ENABLED
11366 module function QAGS_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11368 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK5
11369#endif
11370 use pm_kind, only: RKC => RK5
11371 procedure(real(RKC)) :: getFunc
11372 real(RKC) , intent(in) :: lb
11373 real(RKC) , intent(in) :: ub
11374 real(RKC) , intent(in) :: abstol
11375 real(RKC) , intent(in) :: reltol
11376 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11377 type(weps_type) , intent(in) :: help
11378 real(RKC) , intent(out) :: integral, abserr
11379 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11380 integer(IK) , intent(out) , contiguous :: sindex(:)
11381 integer(IK) , intent(out) :: neval
11382 integer(IK) , intent(out) :: nint
11383 integer(IK) :: err
11384 end function
11385#endif
11386
11387#if RK4_ENABLED
11388 module function QAGS_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11390 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK4
11391#endif
11392 use pm_kind, only: RKC => RK4
11393 procedure(real(RKC)) :: getFunc
11394 real(RKC) , intent(in) :: lb
11395 real(RKC) , intent(in) :: ub
11396 real(RKC) , intent(in) :: abstol
11397 real(RKC) , intent(in) :: reltol
11398 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11399 type(weps_type) , intent(in) :: help
11400 real(RKC) , intent(out) :: integral, abserr
11401 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11402 integer(IK) , intent(out) , contiguous :: sindex(:)
11403 integer(IK) , intent(out) :: neval
11404 integer(IK) , intent(out) :: nint
11405 integer(IK) :: err
11406 end function
11407#endif
11408
11409#if RK3_ENABLED
11410 module function QAGS_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11412 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK3
11413#endif
11414 use pm_kind, only: RKC => RK3
11415 procedure(real(RKC)) :: getFunc
11416 real(RKC) , intent(in) :: lb
11417 real(RKC) , intent(in) :: ub
11418 real(RKC) , intent(in) :: abstol
11419 real(RKC) , intent(in) :: reltol
11420 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11421 type(weps_type) , intent(in) :: help
11422 real(RKC) , intent(out) :: integral, abserr
11423 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11424 integer(IK) , intent(out) , contiguous :: sindex(:)
11425 integer(IK) , intent(out) :: neval
11426 integer(IK) , intent(out) :: nint
11427 integer(IK) :: err
11428 end function
11429#endif
11430
11431#if RK2_ENABLED
11432 module function QAGS_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11434 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK2
11435#endif
11436 use pm_kind, only: RKC => RK2
11437 procedure(real(RKC)) :: getFunc
11438 real(RKC) , intent(in) :: lb
11439 real(RKC) , intent(in) :: ub
11440 real(RKC) , intent(in) :: abstol
11441 real(RKC) , intent(in) :: reltol
11442 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11443 type(weps_type) , intent(in) :: help
11444 real(RKC) , intent(out) :: integral, abserr
11445 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11446 integer(IK) , intent(out) , contiguous :: sindex(:)
11447 integer(IK) , intent(out) :: neval
11448 integer(IK) , intent(out) :: nint
11449 integer(IK) :: err
11450 end function
11451#endif
11452
11453#if RK1_ENABLED
11454 module function QAGS_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11456 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK1
11457#endif
11458 use pm_kind, only: RKC => RK1
11459 procedure(real(RKC)) :: getFunc
11460 real(RKC) , intent(in) :: lb
11461 real(RKC) , intent(in) :: ub
11462 real(RKC) , intent(in) :: abstol
11463 real(RKC) , intent(in) :: reltol
11464 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11465 type(weps_type) , intent(in) :: help
11466 real(RKC) , intent(out) :: integral, abserr
11467 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11468 integer(IK) , intent(out) , contiguous :: sindex(:)
11469 integer(IK) , intent(out) :: neval
11470 integer(IK) , intent(out) :: nint
11471 integer(IK) :: err
11472 end function
11473#endif
11474
11475 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11476
11477#if RK5_ENABLED
11478 module function QAGS_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11480 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK5
11481#endif
11482 use pm_kind, only: RKC => RK5
11483 procedure(real(RKC)) :: getFunc
11484 real(RKC) , intent(in) :: lb
11485 type(pinf_type) , intent(in) :: ub
11486 real(RKC) , intent(in) :: abstol
11487 real(RKC) , intent(in) :: reltol
11488 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11489 type(weps_type) , intent(in) :: help
11490 real(RKC) , intent(out) :: integral, abserr
11491 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11492 integer(IK) , intent(out) , contiguous :: sindex(:)
11493 integer(IK) , intent(out) :: neval
11494 integer(IK) , intent(out) :: nint
11495 integer(IK) :: err
11496 end function
11497#endif
11498
11499#if RK4_ENABLED
11500 module function QAGS_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11502 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK4
11503#endif
11504 use pm_kind, only: RKC => RK4
11505 procedure(real(RKC)) :: getFunc
11506 real(RKC) , intent(in) :: lb
11507 type(pinf_type) , intent(in) :: ub
11508 real(RKC) , intent(in) :: abstol
11509 real(RKC) , intent(in) :: reltol
11510 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11511 type(weps_type) , intent(in) :: help
11512 real(RKC) , intent(out) :: integral, abserr
11513 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11514 integer(IK) , intent(out) , contiguous :: sindex(:)
11515 integer(IK) , intent(out) :: neval
11516 integer(IK) , intent(out) :: nint
11517 integer(IK) :: err
11518 end function
11519#endif
11520
11521#if RK3_ENABLED
11522 module function QAGS_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11524 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK3
11525#endif
11526 use pm_kind, only: RKC => RK3
11527 procedure(real(RKC)) :: getFunc
11528 real(RKC) , intent(in) :: lb
11529 type(pinf_type) , intent(in) :: ub
11530 real(RKC) , intent(in) :: abstol
11531 real(RKC) , intent(in) :: reltol
11532 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11533 type(weps_type) , intent(in) :: help
11534 real(RKC) , intent(out) :: integral, abserr
11535 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11536 integer(IK) , intent(out) , contiguous :: sindex(:)
11537 integer(IK) , intent(out) :: neval
11538 integer(IK) , intent(out) :: nint
11539 integer(IK) :: err
11540 end function
11541#endif
11542
11543#if RK2_ENABLED
11544 module function QAGS_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11546 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK2
11547#endif
11548 use pm_kind, only: RKC => RK2
11549 procedure(real(RKC)) :: getFunc
11550 real(RKC) , intent(in) :: lb
11551 type(pinf_type) , intent(in) :: ub
11552 real(RKC) , intent(in) :: abstol
11553 real(RKC) , intent(in) :: reltol
11554 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11555 type(weps_type) , intent(in) :: help
11556 real(RKC) , intent(out) :: integral, abserr
11557 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11558 integer(IK) , intent(out) , contiguous :: sindex(:)
11559 integer(IK) , intent(out) :: neval
11560 integer(IK) , intent(out) :: nint
11561 integer(IK) :: err
11562 end function
11563#endif
11564
11565#if RK1_ENABLED
11566 module function QAGS_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11568 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK1
11569#endif
11570 use pm_kind, only: RKC => RK1
11571 procedure(real(RKC)) :: getFunc
11572 real(RKC) , intent(in) :: lb
11573 type(pinf_type) , intent(in) :: ub
11574 real(RKC) , intent(in) :: abstol
11575 real(RKC) , intent(in) :: reltol
11576 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11577 type(weps_type) , intent(in) :: help
11578 real(RKC) , intent(out) :: integral, abserr
11579 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11580 integer(IK) , intent(out) , contiguous :: sindex(:)
11581 integer(IK) , intent(out) :: neval
11582 integer(IK) , intent(out) :: nint
11583 integer(IK) :: err
11584 end function
11585#endif
11586
11587 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11588
11589#if RK5_ENABLED
11590 module function QAGS_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11592 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK5
11593#endif
11594 use pm_kind, only: RKC => RK5
11595 procedure(real(RKC)) :: getFunc
11596 type(ninf_type) , intent(in) :: lb
11597 real(RKC) , intent(in) :: ub
11598 real(RKC) , intent(in) :: abstol
11599 real(RKC) , intent(in) :: reltol
11600 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11601 type(weps_type) , intent(in) :: help
11602 real(RKC) , intent(out) :: integral, abserr
11603 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11604 integer(IK) , intent(out) , contiguous :: sindex(:)
11605 integer(IK) , intent(out) :: neval
11606 integer(IK) , intent(out) :: nint
11607 integer(IK) :: err
11608 end function
11609#endif
11610
11611#if RK4_ENABLED
11612 module function QAGS_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11614 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK4
11615#endif
11616 use pm_kind, only: RKC => RK4
11617 procedure(real(RKC)) :: getFunc
11618 type(ninf_type) , intent(in) :: lb
11619 real(RKC) , intent(in) :: ub
11620 real(RKC) , intent(in) :: abstol
11621 real(RKC) , intent(in) :: reltol
11622 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11623 type(weps_type) , intent(in) :: help
11624 real(RKC) , intent(out) :: integral, abserr
11625 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11626 integer(IK) , intent(out) , contiguous :: sindex(:)
11627 integer(IK) , intent(out) :: neval
11628 integer(IK) , intent(out) :: nint
11629 integer(IK) :: err
11630 end function
11631#endif
11632
11633#if RK3_ENABLED
11634 module function QAGS_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11636 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK3
11637#endif
11638 use pm_kind, only: RKC => RK3
11639 procedure(real(RKC)) :: getFunc
11640 type(ninf_type) , intent(in) :: lb
11641 real(RKC) , intent(in) :: ub
11642 real(RKC) , intent(in) :: abstol
11643 real(RKC) , intent(in) :: reltol
11644 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11645 type(weps_type) , intent(in) :: help
11646 real(RKC) , intent(out) :: integral, abserr
11647 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11648 integer(IK) , intent(out) , contiguous :: sindex(:)
11649 integer(IK) , intent(out) :: neval
11650 integer(IK) , intent(out) :: nint
11651 integer(IK) :: err
11652 end function
11653#endif
11654
11655#if RK2_ENABLED
11656 module function QAGS_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11658 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK2
11659#endif
11660 use pm_kind, only: RKC => RK2
11661 procedure(real(RKC)) :: getFunc
11662 type(ninf_type) , intent(in) :: lb
11663 real(RKC) , intent(in) :: ub
11664 real(RKC) , intent(in) :: abstol
11665 real(RKC) , intent(in) :: reltol
11666 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11667 type(weps_type) , intent(in) :: help
11668 real(RKC) , intent(out) :: integral, abserr
11669 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11670 integer(IK) , intent(out) , contiguous :: sindex(:)
11671 integer(IK) , intent(out) :: neval
11672 integer(IK) , intent(out) :: nint
11673 integer(IK) :: err
11674 end function
11675#endif
11676
11677#if RK1_ENABLED
11678 module function QAGS_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11680 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK1
11681#endif
11682 use pm_kind, only: RKC => RK1
11683 procedure(real(RKC)) :: getFunc
11684 type(ninf_type) , intent(in) :: lb
11685 real(RKC) , intent(in) :: ub
11686 real(RKC) , intent(in) :: abstol
11687 real(RKC) , intent(in) :: reltol
11688 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11689 type(weps_type) , intent(in) :: help
11690 real(RKC) , intent(out) :: integral, abserr
11691 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11692 integer(IK) , intent(out) , contiguous :: sindex(:)
11693 integer(IK) , intent(out) :: neval
11694 integer(IK) , intent(out) :: nint
11695 integer(IK) :: err
11696 end function
11697#endif
11698
11699 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11700
11701#if RK5_ENABLED
11702 module function QAGS_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11704 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK5
11705#endif
11706 use pm_kind, only: RKC => RK5
11707 procedure(real(RKC)) :: getFunc
11708 type(ninf_type) , intent(in) :: lb
11709 type(pinf_type) , intent(in) :: ub
11710 real(RKC) , intent(in) :: abstol
11711 real(RKC) , intent(in) :: reltol
11712 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11713 type(weps_type) , intent(in) :: help
11714 real(RKC) , intent(out) :: integral, abserr
11715 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11716 integer(IK) , intent(out) , contiguous :: sindex(:)
11717 integer(IK) , intent(out) :: neval
11718 integer(IK) , intent(out) :: nint
11719 integer(IK) :: err
11720 end function
11721#endif
11722
11723#if RK4_ENABLED
11724 module function QAGS_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11726 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK4
11727#endif
11728 use pm_kind, only: RKC => RK4
11729 procedure(real(RKC)) :: getFunc
11730 type(ninf_type) , intent(in) :: lb
11731 type(pinf_type) , intent(in) :: ub
11732 real(RKC) , intent(in) :: abstol
11733 real(RKC) , intent(in) :: reltol
11734 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11735 type(weps_type) , intent(in) :: help
11736 real(RKC) , intent(out) :: integral, abserr
11737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11738 integer(IK) , intent(out) , contiguous :: sindex(:)
11739 integer(IK) , intent(out) :: neval
11740 integer(IK) , intent(out) :: nint
11741 integer(IK) :: err
11742 end function
11743#endif
11744
11745#if RK3_ENABLED
11746 module function QAGS_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK3
11749#endif
11750 use pm_kind, only: RKC => RK3
11751 procedure(real(RKC)) :: getFunc
11752 type(ninf_type) , intent(in) :: lb
11753 type(pinf_type) , intent(in) :: ub
11754 real(RKC) , intent(in) :: abstol
11755 real(RKC) , intent(in) :: reltol
11756 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11757 type(weps_type) , intent(in) :: help
11758 real(RKC) , intent(out) :: integral, abserr
11759 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11760 integer(IK) , intent(out) , contiguous :: sindex(:)
11761 integer(IK) , intent(out) :: neval
11762 integer(IK) , intent(out) :: nint
11763 integer(IK) :: err
11764 end function
11765#endif
11766
11767#if RK2_ENABLED
11768 module function QAGS_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11770 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK2
11771#endif
11772 use pm_kind, only: RKC => RK2
11773 procedure(real(RKC)) :: getFunc
11774 type(ninf_type) , intent(in) :: lb
11775 type(pinf_type) , intent(in) :: ub
11776 real(RKC) , intent(in) :: abstol
11777 real(RKC) , intent(in) :: reltol
11778 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11779 type(weps_type) , intent(in) :: help
11780 real(RKC) , intent(out) :: integral, abserr
11781 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11782 integer(IK) , intent(out) , contiguous :: sindex(:)
11783 integer(IK) , intent(out) :: neval
11784 integer(IK) , intent(out) :: nint
11785 integer(IK) :: err
11786 end function
11787#endif
11788
11789#if RK1_ENABLED
11790 module function QAGS_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK1
11793#endif
11794 use pm_kind, only: RKC => RK1
11795 procedure(real(RKC)) :: getFunc
11796 type(ninf_type) , intent(in) :: lb
11797 type(pinf_type) , intent(in) :: ub
11798 real(RKC) , intent(in) :: abstol
11799 real(RKC) , intent(in) :: reltol
11800 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11801 type(weps_type) , intent(in) :: help
11802 real(RKC) , intent(out) :: integral, abserr
11803 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11804 integer(IK) , intent(out) , contiguous :: sindex(:)
11805 integer(IK) , intent(out) :: neval
11806 integer(IK) , intent(out) :: nint
11807 integer(IK) :: err
11808 end function
11809#endif
11810
11811 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11812
11813 end interface
11814
11815!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11816
11817 ! QAGP_GK15
11818
11819 interface getQuadErr
11820
11821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11822
11823#if RK5_ENABLED
11824 module function QAGP_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11826 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK5
11827#endif
11828 use pm_kind, only: RKC => RK5
11829 procedure(real(RKC)) :: getFunc
11830 real(RKC) , intent(in) :: lb
11831 real(RKC) , intent(in) :: ub
11832 real(RKC) , intent(in) :: abstol
11833 real(RKC) , intent(in) :: reltol
11834 type(GK15_type) , intent(in) :: qrule
11835 real(RKC) , intent(in) , contiguous :: help(:)
11836 real(RKC) , intent(out) :: integral, abserr
11837 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11838 integer(IK) , intent(out) , contiguous :: sindex(:)
11839 integer(IK) , intent(out) :: neval
11840 integer(IK) , intent(out) :: nint
11841 integer(IK) :: err
11842 end function
11843#endif
11844
11845#if RK4_ENABLED
11846 module function QAGP_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11848 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK4
11849#endif
11850 use pm_kind, only: RKC => RK4
11851 procedure(real(RKC)) :: getFunc
11852 real(RKC) , intent(in) :: lb
11853 real(RKC) , intent(in) :: ub
11854 real(RKC) , intent(in) :: abstol
11855 real(RKC) , intent(in) :: reltol
11856 type(GK15_type) , intent(in) :: qrule
11857 real(RKC) , intent(in) , contiguous :: help(:)
11858 real(RKC) , intent(out) :: integral, abserr
11859 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11860 integer(IK) , intent(out) , contiguous :: sindex(:)
11861 integer(IK) , intent(out) :: neval
11862 integer(IK) , intent(out) :: nint
11863 integer(IK) :: err
11864 end function
11865#endif
11866
11867#if RK3_ENABLED
11868 module function QAGP_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11870 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK3
11871#endif
11872 use pm_kind, only: RKC => RK3
11873 procedure(real(RKC)) :: getFunc
11874 real(RKC) , intent(in) :: lb
11875 real(RKC) , intent(in) :: ub
11876 real(RKC) , intent(in) :: abstol
11877 real(RKC) , intent(in) :: reltol
11878 type(GK15_type) , intent(in) :: qrule
11879 real(RKC) , intent(in) , contiguous :: help(:)
11880 real(RKC) , intent(out) :: integral, abserr
11881 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11882 integer(IK) , intent(out) , contiguous :: sindex(:)
11883 integer(IK) , intent(out) :: neval
11884 integer(IK) , intent(out) :: nint
11885 integer(IK) :: err
11886 end function
11887#endif
11888
11889#if RK2_ENABLED
11890 module function QAGP_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11892 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK2
11893#endif
11894 use pm_kind, only: RKC => RK2
11895 procedure(real(RKC)) :: getFunc
11896 real(RKC) , intent(in) :: lb
11897 real(RKC) , intent(in) :: ub
11898 real(RKC) , intent(in) :: abstol
11899 real(RKC) , intent(in) :: reltol
11900 type(GK15_type) , intent(in) :: qrule
11901 real(RKC) , intent(in) , contiguous :: help(:)
11902 real(RKC) , intent(out) :: integral, abserr
11903 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11904 integer(IK) , intent(out) , contiguous :: sindex(:)
11905 integer(IK) , intent(out) :: neval
11906 integer(IK) , intent(out) :: nint
11907 integer(IK) :: err
11908 end function
11909#endif
11910
11911#if RK1_ENABLED
11912 module function QAGP_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11914 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK1
11915#endif
11916 use pm_kind, only: RKC => RK1
11917 procedure(real(RKC)) :: getFunc
11918 real(RKC) , intent(in) :: lb
11919 real(RKC) , intent(in) :: ub
11920 real(RKC) , intent(in) :: abstol
11921 real(RKC) , intent(in) :: reltol
11922 type(GK15_type) , intent(in) :: qrule
11923 real(RKC) , intent(in) , contiguous :: help(:)
11924 real(RKC) , intent(out) :: integral, abserr
11925 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11926 integer(IK) , intent(out) , contiguous :: sindex(:)
11927 integer(IK) , intent(out) :: neval
11928 integer(IK) , intent(out) :: nint
11929 integer(IK) :: err
11930 end function
11931#endif
11932
11933 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11934
11935#if RK5_ENABLED
11936 module function QAGP_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11938 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK5
11939#endif
11940 use pm_kind, only: RKC => RK5
11941 procedure(real(RKC)) :: getFunc
11942 real(RKC) , intent(in) :: lb
11943 type(pinf_type) , intent(in) :: ub
11944 real(RKC) , intent(in) :: abstol
11945 real(RKC) , intent(in) :: reltol
11946 type(GK15_type) , intent(in) :: qrule
11947 real(RKC) , intent(in) , contiguous :: help(:)
11948 real(RKC) , intent(out) :: integral, abserr
11949 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11950 integer(IK) , intent(out) , contiguous :: sindex(:)
11951 integer(IK) , intent(out) :: neval
11952 integer(IK) , intent(out) :: nint
11953 integer(IK) :: err
11954 end function
11955#endif
11956
11957#if RK4_ENABLED
11958 module function QAGP_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11960 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK4
11961#endif
11962 use pm_kind, only: RKC => RK4
11963 procedure(real(RKC)) :: getFunc
11964 real(RKC) , intent(in) :: lb
11965 type(pinf_type) , intent(in) :: ub
11966 real(RKC) , intent(in) :: abstol
11967 real(RKC) , intent(in) :: reltol
11968 type(GK15_type) , intent(in) :: qrule
11969 real(RKC) , intent(in) , contiguous :: help(:)
11970 real(RKC) , intent(out) :: integral, abserr
11971 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11972 integer(IK) , intent(out) , contiguous :: sindex(:)
11973 integer(IK) , intent(out) :: neval
11974 integer(IK) , intent(out) :: nint
11975 integer(IK) :: err
11976 end function
11977#endif
11978
11979#if RK3_ENABLED
11980 module function QAGP_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11982 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK3
11983#endif
11984 use pm_kind, only: RKC => RK3
11985 procedure(real(RKC)) :: getFunc
11986 real(RKC) , intent(in) :: lb
11987 type(pinf_type) , intent(in) :: ub
11988 real(RKC) , intent(in) :: abstol
11989 real(RKC) , intent(in) :: reltol
11990 type(GK15_type) , intent(in) :: qrule
11991 real(RKC) , intent(in) , contiguous :: help(:)
11992 real(RKC) , intent(out) :: integral, abserr
11993 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11994 integer(IK) , intent(out) , contiguous :: sindex(:)
11995 integer(IK) , intent(out) :: neval
11996 integer(IK) , intent(out) :: nint
11997 integer(IK) :: err
11998 end function
11999#endif
12000
12001#if RK2_ENABLED
12002 module function QAGP_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12004 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK2
12005#endif
12006 use pm_kind, only: RKC => RK2
12007 procedure(real(RKC)) :: getFunc
12008 real(RKC) , intent(in) :: lb
12009 type(pinf_type) , intent(in) :: ub
12010 real(RKC) , intent(in) :: abstol
12011 real(RKC) , intent(in) :: reltol
12012 type(GK15_type) , intent(in) :: qrule
12013 real(RKC) , intent(in) , contiguous :: help(:)
12014 real(RKC) , intent(out) :: integral, abserr
12015 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12016 integer(IK) , intent(out) , contiguous :: sindex(:)
12017 integer(IK) , intent(out) :: neval
12018 integer(IK) , intent(out) :: nint
12019 integer(IK) :: err
12020 end function
12021#endif
12022
12023#if RK1_ENABLED
12024 module function QAGP_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12026 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK1
12027#endif
12028 use pm_kind, only: RKC => RK1
12029 procedure(real(RKC)) :: getFunc
12030 real(RKC) , intent(in) :: lb
12031 type(pinf_type) , intent(in) :: ub
12032 real(RKC) , intent(in) :: abstol
12033 real(RKC) , intent(in) :: reltol
12034 type(GK15_type) , intent(in) :: qrule
12035 real(RKC) , intent(in) , contiguous :: help(:)
12036 real(RKC) , intent(out) :: integral, abserr
12037 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12038 integer(IK) , intent(out) , contiguous :: sindex(:)
12039 integer(IK) , intent(out) :: neval
12040 integer(IK) , intent(out) :: nint
12041 integer(IK) :: err
12042 end function
12043#endif
12044
12045 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12046
12047#if RK5_ENABLED
12048 module function QAGP_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12050 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK5
12051#endif
12052 use pm_kind, only: RKC => RK5
12053 procedure(real(RKC)) :: getFunc
12054 type(ninf_type) , intent(in) :: lb
12055 real(RKC) , intent(in) :: ub
12056 real(RKC) , intent(in) :: abstol
12057 real(RKC) , intent(in) :: reltol
12058 type(GK15_type) , intent(in) :: qrule
12059 real(RKC) , intent(in) , contiguous :: help(:)
12060 real(RKC) , intent(out) :: integral, abserr
12061 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12062 integer(IK) , intent(out) , contiguous :: sindex(:)
12063 integer(IK) , intent(out) :: neval
12064 integer(IK) , intent(out) :: nint
12065 integer(IK) :: err
12066 end function
12067#endif
12068
12069#if RK4_ENABLED
12070 module function QAGP_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12072 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK4
12073#endif
12074 use pm_kind, only: RKC => RK4
12075 procedure(real(RKC)) :: getFunc
12076 type(ninf_type) , intent(in) :: lb
12077 real(RKC) , intent(in) :: ub
12078 real(RKC) , intent(in) :: abstol
12079 real(RKC) , intent(in) :: reltol
12080 type(GK15_type) , intent(in) :: qrule
12081 real(RKC) , intent(in) , contiguous :: help(:)
12082 real(RKC) , intent(out) :: integral, abserr
12083 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12084 integer(IK) , intent(out) , contiguous :: sindex(:)
12085 integer(IK) , intent(out) :: neval
12086 integer(IK) , intent(out) :: nint
12087 integer(IK) :: err
12088 end function
12089#endif
12090
12091#if RK3_ENABLED
12092 module function QAGP_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12094 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK3
12095#endif
12096 use pm_kind, only: RKC => RK3
12097 procedure(real(RKC)) :: getFunc
12098 type(ninf_type) , intent(in) :: lb
12099 real(RKC) , intent(in) :: ub
12100 real(RKC) , intent(in) :: abstol
12101 real(RKC) , intent(in) :: reltol
12102 type(GK15_type) , intent(in) :: qrule
12103 real(RKC) , intent(in) , contiguous :: help(:)
12104 real(RKC) , intent(out) :: integral, abserr
12105 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12106 integer(IK) , intent(out) , contiguous :: sindex(:)
12107 integer(IK) , intent(out) :: neval
12108 integer(IK) , intent(out) :: nint
12109 integer(IK) :: err
12110 end function
12111#endif
12112
12113#if RK2_ENABLED
12114 module function QAGP_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12116 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK2
12117#endif
12118 use pm_kind, only: RKC => RK2
12119 procedure(real(RKC)) :: getFunc
12120 type(ninf_type) , intent(in) :: lb
12121 real(RKC) , intent(in) :: ub
12122 real(RKC) , intent(in) :: abstol
12123 real(RKC) , intent(in) :: reltol
12124 type(GK15_type) , intent(in) :: qrule
12125 real(RKC) , intent(in) , contiguous :: help(:)
12126 real(RKC) , intent(out) :: integral, abserr
12127 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12128 integer(IK) , intent(out) , contiguous :: sindex(:)
12129 integer(IK) , intent(out) :: neval
12130 integer(IK) , intent(out) :: nint
12131 integer(IK) :: err
12132 end function
12133#endif
12134
12135#if RK1_ENABLED
12136 module function QAGP_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12138 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK1
12139#endif
12140 use pm_kind, only: RKC => RK1
12141 procedure(real(RKC)) :: getFunc
12142 type(ninf_type) , intent(in) :: lb
12143 real(RKC) , intent(in) :: ub
12144 real(RKC) , intent(in) :: abstol
12145 real(RKC) , intent(in) :: reltol
12146 type(GK15_type) , intent(in) :: qrule
12147 real(RKC) , intent(in) , contiguous :: help(:)
12148 real(RKC) , intent(out) :: integral, abserr
12149 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12150 integer(IK) , intent(out) , contiguous :: sindex(:)
12151 integer(IK) , intent(out) :: neval
12152 integer(IK) , intent(out) :: nint
12153 integer(IK) :: err
12154 end function
12155#endif
12156
12157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12158
12159#if RK5_ENABLED
12160 module function QAGP_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12162 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK5
12163#endif
12164 use pm_kind, only: RKC => RK5
12165 procedure(real(RKC)) :: getFunc
12166 type(ninf_type) , intent(in) :: lb
12167 type(pinf_type) , intent(in) :: ub
12168 real(RKC) , intent(in) :: abstol
12169 real(RKC) , intent(in) :: reltol
12170 type(GK15_type) , intent(in) :: qrule
12171 real(RKC) , intent(in) , contiguous :: help(:)
12172 real(RKC) , intent(out) :: integral, abserr
12173 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12174 integer(IK) , intent(out) , contiguous :: sindex(:)
12175 integer(IK) , intent(out) :: neval
12176 integer(IK) , intent(out) :: nint
12177 integer(IK) :: err
12178 end function
12179#endif
12180
12181#if RK4_ENABLED
12182 module function QAGP_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12184 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK4
12185#endif
12186 use pm_kind, only: RKC => RK4
12187 procedure(real(RKC)) :: getFunc
12188 type(ninf_type) , intent(in) :: lb
12189 type(pinf_type) , intent(in) :: ub
12190 real(RKC) , intent(in) :: abstol
12191 real(RKC) , intent(in) :: reltol
12192 type(GK15_type) , intent(in) :: qrule
12193 real(RKC) , intent(in) , contiguous :: help(:)
12194 real(RKC) , intent(out) :: integral, abserr
12195 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12196 integer(IK) , intent(out) , contiguous :: sindex(:)
12197 integer(IK) , intent(out) :: neval
12198 integer(IK) , intent(out) :: nint
12199 integer(IK) :: err
12200 end function
12201#endif
12202
12203#if RK3_ENABLED
12204 module function QAGP_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12206 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK3
12207#endif
12208 use pm_kind, only: RKC => RK3
12209 procedure(real(RKC)) :: getFunc
12210 type(ninf_type) , intent(in) :: lb
12211 type(pinf_type) , intent(in) :: ub
12212 real(RKC) , intent(in) :: abstol
12213 real(RKC) , intent(in) :: reltol
12214 type(GK15_type) , intent(in) :: qrule
12215 real(RKC) , intent(in) , contiguous :: help(:)
12216 real(RKC) , intent(out) :: integral, abserr
12217 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12218 integer(IK) , intent(out) , contiguous :: sindex(:)
12219 integer(IK) , intent(out) :: neval
12220 integer(IK) , intent(out) :: nint
12221 integer(IK) :: err
12222 end function
12223#endif
12224
12225#if RK2_ENABLED
12226 module function QAGP_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12228 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK2
12229#endif
12230 use pm_kind, only: RKC => RK2
12231 procedure(real(RKC)) :: getFunc
12232 type(ninf_type) , intent(in) :: lb
12233 type(pinf_type) , intent(in) :: ub
12234 real(RKC) , intent(in) :: abstol
12235 real(RKC) , intent(in) :: reltol
12236 type(GK15_type) , intent(in) :: qrule
12237 real(RKC) , intent(in) , contiguous :: help(:)
12238 real(RKC) , intent(out) :: integral, abserr
12239 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12240 integer(IK) , intent(out) , contiguous :: sindex(:)
12241 integer(IK) , intent(out) :: neval
12242 integer(IK) , intent(out) :: nint
12243 integer(IK) :: err
12244 end function
12245#endif
12246
12247#if RK1_ENABLED
12248 module function QAGP_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12250 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK1
12251#endif
12252 use pm_kind, only: RKC => RK1
12253 procedure(real(RKC)) :: getFunc
12254 type(ninf_type) , intent(in) :: lb
12255 type(pinf_type) , intent(in) :: ub
12256 real(RKC) , intent(in) :: abstol
12257 real(RKC) , intent(in) :: reltol
12258 type(GK15_type) , intent(in) :: qrule
12259 real(RKC) , intent(in) , contiguous :: help(:)
12260 real(RKC) , intent(out) :: integral, abserr
12261 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12262 integer(IK) , intent(out) , contiguous :: sindex(:)
12263 integer(IK) , intent(out) :: neval
12264 integer(IK) , intent(out) :: nint
12265 integer(IK) :: err
12266 end function
12267#endif
12268
12269 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12270
12271 end interface
12272
12273 ! QAGP_GK21
12274
12275 interface getQuadErr
12276
12277 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12278
12279#if RK5_ENABLED
12280 module function QAGP_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12282 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK5
12283#endif
12284 use pm_kind, only: RKC => RK5
12285 procedure(real(RKC)) :: getFunc
12286 real(RKC) , intent(in) :: lb
12287 real(RKC) , intent(in) :: ub
12288 real(RKC) , intent(in) :: abstol
12289 real(RKC) , intent(in) :: reltol
12290 type(GK21_type) , intent(in) :: qrule
12291 real(RKC) , intent(in) , contiguous :: help(:)
12292 real(RKC) , intent(out) :: integral, abserr
12293 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12294 integer(IK) , intent(out) , contiguous :: sindex(:)
12295 integer(IK) , intent(out) :: neval
12296 integer(IK) , intent(out) :: nint
12297 integer(IK) :: err
12298 end function
12299#endif
12300
12301#if RK4_ENABLED
12302 module function QAGP_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12304 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK4
12305#endif
12306 use pm_kind, only: RKC => RK4
12307 procedure(real(RKC)) :: getFunc
12308 real(RKC) , intent(in) :: lb
12309 real(RKC) , intent(in) :: ub
12310 real(RKC) , intent(in) :: abstol
12311 real(RKC) , intent(in) :: reltol
12312 type(GK21_type) , intent(in) :: qrule
12313 real(RKC) , intent(in) , contiguous :: help(:)
12314 real(RKC) , intent(out) :: integral, abserr
12315 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12316 integer(IK) , intent(out) , contiguous :: sindex(:)
12317 integer(IK) , intent(out) :: neval
12318 integer(IK) , intent(out) :: nint
12319 integer(IK) :: err
12320 end function
12321#endif
12322
12323#if RK3_ENABLED
12324 module function QAGP_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12326 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK3
12327#endif
12328 use pm_kind, only: RKC => RK3
12329 procedure(real(RKC)) :: getFunc
12330 real(RKC) , intent(in) :: lb
12331 real(RKC) , intent(in) :: ub
12332 real(RKC) , intent(in) :: abstol
12333 real(RKC) , intent(in) :: reltol
12334 type(GK21_type) , intent(in) :: qrule
12335 real(RKC) , intent(in) , contiguous :: help(:)
12336 real(RKC) , intent(out) :: integral, abserr
12337 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12338 integer(IK) , intent(out) , contiguous :: sindex(:)
12339 integer(IK) , intent(out) :: neval
12340 integer(IK) , intent(out) :: nint
12341 integer(IK) :: err
12342 end function
12343#endif
12344
12345#if RK2_ENABLED
12346 module function QAGP_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12348 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK2
12349#endif
12350 use pm_kind, only: RKC => RK2
12351 procedure(real(RKC)) :: getFunc
12352 real(RKC) , intent(in) :: lb
12353 real(RKC) , intent(in) :: ub
12354 real(RKC) , intent(in) :: abstol
12355 real(RKC) , intent(in) :: reltol
12356 type(GK21_type) , intent(in) :: qrule
12357 real(RKC) , intent(in) , contiguous :: help(:)
12358 real(RKC) , intent(out) :: integral, abserr
12359 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12360 integer(IK) , intent(out) , contiguous :: sindex(:)
12361 integer(IK) , intent(out) :: neval
12362 integer(IK) , intent(out) :: nint
12363 integer(IK) :: err
12364 end function
12365#endif
12366
12367#if RK1_ENABLED
12368 module function QAGP_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12370 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK1
12371#endif
12372 use pm_kind, only: RKC => RK1
12373 procedure(real(RKC)) :: getFunc
12374 real(RKC) , intent(in) :: lb
12375 real(RKC) , intent(in) :: ub
12376 real(RKC) , intent(in) :: abstol
12377 real(RKC) , intent(in) :: reltol
12378 type(GK21_type) , intent(in) :: qrule
12379 real(RKC) , intent(in) , contiguous :: help(:)
12380 real(RKC) , intent(out) :: integral, abserr
12381 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12382 integer(IK) , intent(out) , contiguous :: sindex(:)
12383 integer(IK) , intent(out) :: neval
12384 integer(IK) , intent(out) :: nint
12385 integer(IK) :: err
12386 end function
12387#endif
12388
12389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12390
12391#if RK5_ENABLED
12392 module function QAGP_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12394 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK5
12395#endif
12396 use pm_kind, only: RKC => RK5
12397 procedure(real(RKC)) :: getFunc
12398 real(RKC) , intent(in) :: lb
12399 type(pinf_type) , intent(in) :: ub
12400 real(RKC) , intent(in) :: abstol
12401 real(RKC) , intent(in) :: reltol
12402 type(GK21_type) , intent(in) :: qrule
12403 real(RKC) , intent(in) , contiguous :: help(:)
12404 real(RKC) , intent(out) :: integral, abserr
12405 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12406 integer(IK) , intent(out) , contiguous :: sindex(:)
12407 integer(IK) , intent(out) :: neval
12408 integer(IK) , intent(out) :: nint
12409 integer(IK) :: err
12410 end function
12411#endif
12412
12413#if RK4_ENABLED
12414 module function QAGP_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12416 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK4
12417#endif
12418 use pm_kind, only: RKC => RK4
12419 procedure(real(RKC)) :: getFunc
12420 real(RKC) , intent(in) :: lb
12421 type(pinf_type) , intent(in) :: ub
12422 real(RKC) , intent(in) :: abstol
12423 real(RKC) , intent(in) :: reltol
12424 type(GK21_type) , intent(in) :: qrule
12425 real(RKC) , intent(in) , contiguous :: help(:)
12426 real(RKC) , intent(out) :: integral, abserr
12427 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12428 integer(IK) , intent(out) , contiguous :: sindex(:)
12429 integer(IK) , intent(out) :: neval
12430 integer(IK) , intent(out) :: nint
12431 integer(IK) :: err
12432 end function
12433#endif
12434
12435#if RK3_ENABLED
12436 module function QAGP_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12438 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK3
12439#endif
12440 use pm_kind, only: RKC => RK3
12441 procedure(real(RKC)) :: getFunc
12442 real(RKC) , intent(in) :: lb
12443 type(pinf_type) , intent(in) :: ub
12444 real(RKC) , intent(in) :: abstol
12445 real(RKC) , intent(in) :: reltol
12446 type(GK21_type) , intent(in) :: qrule
12447 real(RKC) , intent(in) , contiguous :: help(:)
12448 real(RKC) , intent(out) :: integral, abserr
12449 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12450 integer(IK) , intent(out) , contiguous :: sindex(:)
12451 integer(IK) , intent(out) :: neval
12452 integer(IK) , intent(out) :: nint
12453 integer(IK) :: err
12454 end function
12455#endif
12456
12457#if RK2_ENABLED
12458 module function QAGP_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12460 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK2
12461#endif
12462 use pm_kind, only: RKC => RK2
12463 procedure(real(RKC)) :: getFunc
12464 real(RKC) , intent(in) :: lb
12465 type(pinf_type) , intent(in) :: ub
12466 real(RKC) , intent(in) :: abstol
12467 real(RKC) , intent(in) :: reltol
12468 type(GK21_type) , intent(in) :: qrule
12469 real(RKC) , intent(in) , contiguous :: help(:)
12470 real(RKC) , intent(out) :: integral, abserr
12471 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12472 integer(IK) , intent(out) , contiguous :: sindex(:)
12473 integer(IK) , intent(out) :: neval
12474 integer(IK) , intent(out) :: nint
12475 integer(IK) :: err
12476 end function
12477#endif
12478
12479#if RK1_ENABLED
12480 module function QAGP_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12482 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK1
12483#endif
12484 use pm_kind, only: RKC => RK1
12485 procedure(real(RKC)) :: getFunc
12486 real(RKC) , intent(in) :: lb
12487 type(pinf_type) , intent(in) :: ub
12488 real(RKC) , intent(in) :: abstol
12489 real(RKC) , intent(in) :: reltol
12490 type(GK21_type) , intent(in) :: qrule
12491 real(RKC) , intent(in) , contiguous :: help(:)
12492 real(RKC) , intent(out) :: integral, abserr
12493 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12494 integer(IK) , intent(out) , contiguous :: sindex(:)
12495 integer(IK) , intent(out) :: neval
12496 integer(IK) , intent(out) :: nint
12497 integer(IK) :: err
12498 end function
12499#endif
12500
12501 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12502
12503#if RK5_ENABLED
12504 module function QAGP_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12506 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK5
12507#endif
12508 use pm_kind, only: RKC => RK5
12509 procedure(real(RKC)) :: getFunc
12510 type(ninf_type) , intent(in) :: lb
12511 real(RKC) , intent(in) :: ub
12512 real(RKC) , intent(in) :: abstol
12513 real(RKC) , intent(in) :: reltol
12514 type(GK21_type) , intent(in) :: qrule
12515 real(RKC) , intent(in) , contiguous :: help(:)
12516 real(RKC) , intent(out) :: integral, abserr
12517 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12518 integer(IK) , intent(out) , contiguous :: sindex(:)
12519 integer(IK) , intent(out) :: neval
12520 integer(IK) , intent(out) :: nint
12521 integer(IK) :: err
12522 end function
12523#endif
12524
12525#if RK4_ENABLED
12526 module function QAGP_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12528 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK4
12529#endif
12530 use pm_kind, only: RKC => RK4
12531 procedure(real(RKC)) :: getFunc
12532 type(ninf_type) , intent(in) :: lb
12533 real(RKC) , intent(in) :: ub
12534 real(RKC) , intent(in) :: abstol
12535 real(RKC) , intent(in) :: reltol
12536 type(GK21_type) , intent(in) :: qrule
12537 real(RKC) , intent(in) , contiguous :: help(:)
12538 real(RKC) , intent(out) :: integral, abserr
12539 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12540 integer(IK) , intent(out) , contiguous :: sindex(:)
12541 integer(IK) , intent(out) :: neval
12542 integer(IK) , intent(out) :: nint
12543 integer(IK) :: err
12544 end function
12545#endif
12546
12547#if RK3_ENABLED
12548 module function QAGP_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12550 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK3
12551#endif
12552 use pm_kind, only: RKC => RK3
12553 procedure(real(RKC)) :: getFunc
12554 type(ninf_type) , intent(in) :: lb
12555 real(RKC) , intent(in) :: ub
12556 real(RKC) , intent(in) :: abstol
12557 real(RKC) , intent(in) :: reltol
12558 type(GK21_type) , intent(in) :: qrule
12559 real(RKC) , intent(in) , contiguous :: help(:)
12560 real(RKC) , intent(out) :: integral, abserr
12561 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12562 integer(IK) , intent(out) , contiguous :: sindex(:)
12563 integer(IK) , intent(out) :: neval
12564 integer(IK) , intent(out) :: nint
12565 integer(IK) :: err
12566 end function
12567#endif
12568
12569#if RK2_ENABLED
12570 module function QAGP_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12572 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK2
12573#endif
12574 use pm_kind, only: RKC => RK2
12575 procedure(real(RKC)) :: getFunc
12576 type(ninf_type) , intent(in) :: lb
12577 real(RKC) , intent(in) :: ub
12578 real(RKC) , intent(in) :: abstol
12579 real(RKC) , intent(in) :: reltol
12580 type(GK21_type) , intent(in) :: qrule
12581 real(RKC) , intent(in) , contiguous :: help(:)
12582 real(RKC) , intent(out) :: integral, abserr
12583 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12584 integer(IK) , intent(out) , contiguous :: sindex(:)
12585 integer(IK) , intent(out) :: neval
12586 integer(IK) , intent(out) :: nint
12587 integer(IK) :: err
12588 end function
12589#endif
12590
12591#if RK1_ENABLED
12592 module function QAGP_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12594 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK1
12595#endif
12596 use pm_kind, only: RKC => RK1
12597 procedure(real(RKC)) :: getFunc
12598 type(ninf_type) , intent(in) :: lb
12599 real(RKC) , intent(in) :: ub
12600 real(RKC) , intent(in) :: abstol
12601 real(RKC) , intent(in) :: reltol
12602 type(GK21_type) , intent(in) :: qrule
12603 real(RKC) , intent(in) , contiguous :: help(:)
12604 real(RKC) , intent(out) :: integral, abserr
12605 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12606 integer(IK) , intent(out) , contiguous :: sindex(:)
12607 integer(IK) , intent(out) :: neval
12608 integer(IK) , intent(out) :: nint
12609 integer(IK) :: err
12610 end function
12611#endif
12612
12613 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12614
12615#if RK5_ENABLED
12616 module function QAGP_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12618 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK5
12619#endif
12620 use pm_kind, only: RKC => RK5
12621 procedure(real(RKC)) :: getFunc
12622 type(ninf_type) , intent(in) :: lb
12623 type(pinf_type) , intent(in) :: ub
12624 real(RKC) , intent(in) :: abstol
12625 real(RKC) , intent(in) :: reltol
12626 type(GK21_type) , intent(in) :: qrule
12627 real(RKC) , intent(in) , contiguous :: help(:)
12628 real(RKC) , intent(out) :: integral, abserr
12629 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12630 integer(IK) , intent(out) , contiguous :: sindex(:)
12631 integer(IK) , intent(out) :: neval
12632 integer(IK) , intent(out) :: nint
12633 integer(IK) :: err
12634 end function
12635#endif
12636
12637#if RK4_ENABLED
12638 module function QAGP_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12640 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK4
12641#endif
12642 use pm_kind, only: RKC => RK4
12643 procedure(real(RKC)) :: getFunc
12644 type(ninf_type) , intent(in) :: lb
12645 type(pinf_type) , intent(in) :: ub
12646 real(RKC) , intent(in) :: abstol
12647 real(RKC) , intent(in) :: reltol
12648 type(GK21_type) , intent(in) :: qrule
12649 real(RKC) , intent(in) , contiguous :: help(:)
12650 real(RKC) , intent(out) :: integral, abserr
12651 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12652 integer(IK) , intent(out) , contiguous :: sindex(:)
12653 integer(IK) , intent(out) :: neval
12654 integer(IK) , intent(out) :: nint
12655 integer(IK) :: err
12656 end function
12657#endif
12658
12659#if RK3_ENABLED
12660 module function QAGP_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12662 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK3
12663#endif
12664 use pm_kind, only: RKC => RK3
12665 procedure(real(RKC)) :: getFunc
12666 type(ninf_type) , intent(in) :: lb
12667 type(pinf_type) , intent(in) :: ub
12668 real(RKC) , intent(in) :: abstol
12669 real(RKC) , intent(in) :: reltol
12670 type(GK21_type) , intent(in) :: qrule
12671 real(RKC) , intent(in) , contiguous :: help(:)
12672 real(RKC) , intent(out) :: integral, abserr
12673 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12674 integer(IK) , intent(out) , contiguous :: sindex(:)
12675 integer(IK) , intent(out) :: neval
12676 integer(IK) , intent(out) :: nint
12677 integer(IK) :: err
12678 end function
12679#endif
12680
12681#if RK2_ENABLED
12682 module function QAGP_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12684 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK2
12685#endif
12686 use pm_kind, only: RKC => RK2
12687 procedure(real(RKC)) :: getFunc
12688 type(ninf_type) , intent(in) :: lb
12689 type(pinf_type) , intent(in) :: ub
12690 real(RKC) , intent(in) :: abstol
12691 real(RKC) , intent(in) :: reltol
12692 type(GK21_type) , intent(in) :: qrule
12693 real(RKC) , intent(in) , contiguous :: help(:)
12694 real(RKC) , intent(out) :: integral, abserr
12695 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12696 integer(IK) , intent(out) , contiguous :: sindex(:)
12697 integer(IK) , intent(out) :: neval
12698 integer(IK) , intent(out) :: nint
12699 integer(IK) :: err
12700 end function
12701#endif
12702
12703#if RK1_ENABLED
12704 module function QAGP_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK1
12707#endif
12708 use pm_kind, only: RKC => RK1
12709 procedure(real(RKC)) :: getFunc
12710 type(ninf_type) , intent(in) :: lb
12711 type(pinf_type) , intent(in) :: ub
12712 real(RKC) , intent(in) :: abstol
12713 real(RKC) , intent(in) :: reltol
12714 type(GK21_type) , intent(in) :: qrule
12715 real(RKC) , intent(in) , contiguous :: help(:)
12716 real(RKC) , intent(out) :: integral, abserr
12717 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12718 integer(IK) , intent(out) , contiguous :: sindex(:)
12719 integer(IK) , intent(out) :: neval
12720 integer(IK) , intent(out) :: nint
12721 integer(IK) :: err
12722 end function
12723#endif
12724
12725 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12726
12727 end interface
12728
12729 ! QAGP_GK31
12730
12731 interface getQuadErr
12732
12733 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12734
12735#if RK5_ENABLED
12736 module function QAGP_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12738 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK5
12739#endif
12740 use pm_kind, only: RKC => RK5
12741 procedure(real(RKC)) :: getFunc
12742 real(RKC) , intent(in) :: lb
12743 real(RKC) , intent(in) :: ub
12744 real(RKC) , intent(in) :: abstol
12745 real(RKC) , intent(in) :: reltol
12746 type(GK31_type) , intent(in) :: qrule
12747 real(RKC) , intent(in) , contiguous :: help(:)
12748 real(RKC) , intent(out) :: integral, abserr
12749 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12750 integer(IK) , intent(out) , contiguous :: sindex(:)
12751 integer(IK) , intent(out) :: neval
12752 integer(IK) , intent(out) :: nint
12753 integer(IK) :: err
12754 end function
12755#endif
12756
12757#if RK4_ENABLED
12758 module function QAGP_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12760 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK4
12761#endif
12762 use pm_kind, only: RKC => RK4
12763 procedure(real(RKC)) :: getFunc
12764 real(RKC) , intent(in) :: lb
12765 real(RKC) , intent(in) :: ub
12766 real(RKC) , intent(in) :: abstol
12767 real(RKC) , intent(in) :: reltol
12768 type(GK31_type) , intent(in) :: qrule
12769 real(RKC) , intent(in) , contiguous :: help(:)
12770 real(RKC) , intent(out) :: integral, abserr
12771 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12772 integer(IK) , intent(out) , contiguous :: sindex(:)
12773 integer(IK) , intent(out) :: neval
12774 integer(IK) , intent(out) :: nint
12775 integer(IK) :: err
12776 end function
12777#endif
12778
12779#if RK3_ENABLED
12780 module function QAGP_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12782 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK3
12783#endif
12784 use pm_kind, only: RKC => RK3
12785 procedure(real(RKC)) :: getFunc
12786 real(RKC) , intent(in) :: lb
12787 real(RKC) , intent(in) :: ub
12788 real(RKC) , intent(in) :: abstol
12789 real(RKC) , intent(in) :: reltol
12790 type(GK31_type) , intent(in) :: qrule
12791 real(RKC) , intent(in) , contiguous :: help(:)
12792 real(RKC) , intent(out) :: integral, abserr
12793 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12794 integer(IK) , intent(out) , contiguous :: sindex(:)
12795 integer(IK) , intent(out) :: neval
12796 integer(IK) , intent(out) :: nint
12797 integer(IK) :: err
12798 end function
12799#endif
12800
12801#if RK2_ENABLED
12802 module function QAGP_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12804 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK2
12805#endif
12806 use pm_kind, only: RKC => RK2
12807 procedure(real(RKC)) :: getFunc
12808 real(RKC) , intent(in) :: lb
12809 real(RKC) , intent(in) :: ub
12810 real(RKC) , intent(in) :: abstol
12811 real(RKC) , intent(in) :: reltol
12812 type(GK31_type) , intent(in) :: qrule
12813 real(RKC) , intent(in) , contiguous :: help(:)
12814 real(RKC) , intent(out) :: integral, abserr
12815 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12816 integer(IK) , intent(out) , contiguous :: sindex(:)
12817 integer(IK) , intent(out) :: neval
12818 integer(IK) , intent(out) :: nint
12819 integer(IK) :: err
12820 end function
12821#endif
12822
12823#if RK1_ENABLED
12824 module function QAGP_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12826 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK1
12827#endif
12828 use pm_kind, only: RKC => RK1
12829 procedure(real(RKC)) :: getFunc
12830 real(RKC) , intent(in) :: lb
12831 real(RKC) , intent(in) :: ub
12832 real(RKC) , intent(in) :: abstol
12833 real(RKC) , intent(in) :: reltol
12834 type(GK31_type) , intent(in) :: qrule
12835 real(RKC) , intent(in) , contiguous :: help(:)
12836 real(RKC) , intent(out) :: integral, abserr
12837 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12838 integer(IK) , intent(out) , contiguous :: sindex(:)
12839 integer(IK) , intent(out) :: neval
12840 integer(IK) , intent(out) :: nint
12841 integer(IK) :: err
12842 end function
12843#endif
12844
12845 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12846
12847#if RK5_ENABLED
12848 module function QAGP_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12850 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK5
12851#endif
12852 use pm_kind, only: RKC => RK5
12853 procedure(real(RKC)) :: getFunc
12854 real(RKC) , intent(in) :: lb
12855 type(pinf_type) , intent(in) :: ub
12856 real(RKC) , intent(in) :: abstol
12857 real(RKC) , intent(in) :: reltol
12858 type(GK31_type) , intent(in) :: qrule
12859 real(RKC) , intent(in) , contiguous :: help(:)
12860 real(RKC) , intent(out) :: integral, abserr
12861 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12862 integer(IK) , intent(out) , contiguous :: sindex(:)
12863 integer(IK) , intent(out) :: neval
12864 integer(IK) , intent(out) :: nint
12865 integer(IK) :: err
12866 end function
12867#endif
12868
12869#if RK4_ENABLED
12870 module function QAGP_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12872 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK4
12873#endif
12874 use pm_kind, only: RKC => RK4
12875 procedure(real(RKC)) :: getFunc
12876 real(RKC) , intent(in) :: lb
12877 type(pinf_type) , intent(in) :: ub
12878 real(RKC) , intent(in) :: abstol
12879 real(RKC) , intent(in) :: reltol
12880 type(GK31_type) , intent(in) :: qrule
12881 real(RKC) , intent(in) , contiguous :: help(:)
12882 real(RKC) , intent(out) :: integral, abserr
12883 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12884 integer(IK) , intent(out) , contiguous :: sindex(:)
12885 integer(IK) , intent(out) :: neval
12886 integer(IK) , intent(out) :: nint
12887 integer(IK) :: err
12888 end function
12889#endif
12890
12891#if RK3_ENABLED
12892 module function QAGP_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12894 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK3
12895#endif
12896 use pm_kind, only: RKC => RK3
12897 procedure(real(RKC)) :: getFunc
12898 real(RKC) , intent(in) :: lb
12899 type(pinf_type) , intent(in) :: ub
12900 real(RKC) , intent(in) :: abstol
12901 real(RKC) , intent(in) :: reltol
12902 type(GK31_type) , intent(in) :: qrule
12903 real(RKC) , intent(in) , contiguous :: help(:)
12904 real(RKC) , intent(out) :: integral, abserr
12905 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12906 integer(IK) , intent(out) , contiguous :: sindex(:)
12907 integer(IK) , intent(out) :: neval
12908 integer(IK) , intent(out) :: nint
12909 integer(IK) :: err
12910 end function
12911#endif
12912
12913#if RK2_ENABLED
12914 module function QAGP_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12916 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK2
12917#endif
12918 use pm_kind, only: RKC => RK2
12919 procedure(real(RKC)) :: getFunc
12920 real(RKC) , intent(in) :: lb
12921 type(pinf_type) , intent(in) :: ub
12922 real(RKC) , intent(in) :: abstol
12923 real(RKC) , intent(in) :: reltol
12924 type(GK31_type) , intent(in) :: qrule
12925 real(RKC) , intent(in) , contiguous :: help(:)
12926 real(RKC) , intent(out) :: integral, abserr
12927 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12928 integer(IK) , intent(out) , contiguous :: sindex(:)
12929 integer(IK) , intent(out) :: neval
12930 integer(IK) , intent(out) :: nint
12931 integer(IK) :: err
12932 end function
12933#endif
12934
12935#if RK1_ENABLED
12936 module function QAGP_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12938 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK1
12939#endif
12940 use pm_kind, only: RKC => RK1
12941 procedure(real(RKC)) :: getFunc
12942 real(RKC) , intent(in) :: lb
12943 type(pinf_type) , intent(in) :: ub
12944 real(RKC) , intent(in) :: abstol
12945 real(RKC) , intent(in) :: reltol
12946 type(GK31_type) , intent(in) :: qrule
12947 real(RKC) , intent(in) , contiguous :: help(:)
12948 real(RKC) , intent(out) :: integral, abserr
12949 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12950 integer(IK) , intent(out) , contiguous :: sindex(:)
12951 integer(IK) , intent(out) :: neval
12952 integer(IK) , intent(out) :: nint
12953 integer(IK) :: err
12954 end function
12955#endif
12956
12957 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12958
12959#if RK5_ENABLED
12960 module function QAGP_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK5
12963#endif
12964 use pm_kind, only: RKC => RK5
12965 procedure(real(RKC)) :: getFunc
12966 type(ninf_type) , intent(in) :: lb
12967 real(RKC) , intent(in) :: ub
12968 real(RKC) , intent(in) :: abstol
12969 real(RKC) , intent(in) :: reltol
12970 type(GK31_type) , intent(in) :: qrule
12971 real(RKC) , intent(in) , contiguous :: help(:)
12972 real(RKC) , intent(out) :: integral, abserr
12973 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12974 integer(IK) , intent(out) , contiguous :: sindex(:)
12975 integer(IK) , intent(out) :: neval
12976 integer(IK) , intent(out) :: nint
12977 integer(IK) :: err
12978 end function
12979#endif
12980
12981#if RK4_ENABLED
12982 module function QAGP_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12984 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK4
12985#endif
12986 use pm_kind, only: RKC => RK4
12987 procedure(real(RKC)) :: getFunc
12988 type(ninf_type) , intent(in) :: lb
12989 real(RKC) , intent(in) :: ub
12990 real(RKC) , intent(in) :: abstol
12991 real(RKC) , intent(in) :: reltol
12992 type(GK31_type) , intent(in) :: qrule
12993 real(RKC) , intent(in) , contiguous :: help(:)
12994 real(RKC) , intent(out) :: integral, abserr
12995 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12996 integer(IK) , intent(out) , contiguous :: sindex(:)
12997 integer(IK) , intent(out) :: neval
12998 integer(IK) , intent(out) :: nint
12999 integer(IK) :: err
13000 end function
13001#endif
13002
13003#if RK3_ENABLED
13004 module function QAGP_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13006 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK3
13007#endif
13008 use pm_kind, only: RKC => RK3
13009 procedure(real(RKC)) :: getFunc
13010 type(ninf_type) , intent(in) :: lb
13011 real(RKC) , intent(in) :: ub
13012 real(RKC) , intent(in) :: abstol
13013 real(RKC) , intent(in) :: reltol
13014 type(GK31_type) , intent(in) :: qrule
13015 real(RKC) , intent(in) , contiguous :: help(:)
13016 real(RKC) , intent(out) :: integral, abserr
13017 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13018 integer(IK) , intent(out) , contiguous :: sindex(:)
13019 integer(IK) , intent(out) :: neval
13020 integer(IK) , intent(out) :: nint
13021 integer(IK) :: err
13022 end function
13023#endif
13024
13025#if RK2_ENABLED
13026 module function QAGP_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13028 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK2
13029#endif
13030 use pm_kind, only: RKC => RK2
13031 procedure(real(RKC)) :: getFunc
13032 type(ninf_type) , intent(in) :: lb
13033 real(RKC) , intent(in) :: ub
13034 real(RKC) , intent(in) :: abstol
13035 real(RKC) , intent(in) :: reltol
13036 type(GK31_type) , intent(in) :: qrule
13037 real(RKC) , intent(in) , contiguous :: help(:)
13038 real(RKC) , intent(out) :: integral, abserr
13039 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13040 integer(IK) , intent(out) , contiguous :: sindex(:)
13041 integer(IK) , intent(out) :: neval
13042 integer(IK) , intent(out) :: nint
13043 integer(IK) :: err
13044 end function
13045#endif
13046
13047#if RK1_ENABLED
13048 module function QAGP_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13050 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK1
13051#endif
13052 use pm_kind, only: RKC => RK1
13053 procedure(real(RKC)) :: getFunc
13054 type(ninf_type) , intent(in) :: lb
13055 real(RKC) , intent(in) :: ub
13056 real(RKC) , intent(in) :: abstol
13057 real(RKC) , intent(in) :: reltol
13058 type(GK31_type) , intent(in) :: qrule
13059 real(RKC) , intent(in) , contiguous :: help(:)
13060 real(RKC) , intent(out) :: integral, abserr
13061 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13062 integer(IK) , intent(out) , contiguous :: sindex(:)
13063 integer(IK) , intent(out) :: neval
13064 integer(IK) , intent(out) :: nint
13065 integer(IK) :: err
13066 end function
13067#endif
13068
13069 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13070
13071#if RK5_ENABLED
13072 module function QAGP_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13074 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK5
13075#endif
13076 use pm_kind, only: RKC => RK5
13077 procedure(real(RKC)) :: getFunc
13078 type(ninf_type) , intent(in) :: lb
13079 type(pinf_type) , intent(in) :: ub
13080 real(RKC) , intent(in) :: abstol
13081 real(RKC) , intent(in) :: reltol
13082 type(GK31_type) , intent(in) :: qrule
13083 real(RKC) , intent(in) , contiguous :: help(:)
13084 real(RKC) , intent(out) :: integral, abserr
13085 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13086 integer(IK) , intent(out) , contiguous :: sindex(:)
13087 integer(IK) , intent(out) :: neval
13088 integer(IK) , intent(out) :: nint
13089 integer(IK) :: err
13090 end function
13091#endif
13092
13093#if RK4_ENABLED
13094 module function QAGP_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13096 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK4
13097#endif
13098 use pm_kind, only: RKC => RK4
13099 procedure(real(RKC)) :: getFunc
13100 type(ninf_type) , intent(in) :: lb
13101 type(pinf_type) , intent(in) :: ub
13102 real(RKC) , intent(in) :: abstol
13103 real(RKC) , intent(in) :: reltol
13104 type(GK31_type) , intent(in) :: qrule
13105 real(RKC) , intent(in) , contiguous :: help(:)
13106 real(RKC) , intent(out) :: integral, abserr
13107 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13108 integer(IK) , intent(out) , contiguous :: sindex(:)
13109 integer(IK) , intent(out) :: neval
13110 integer(IK) , intent(out) :: nint
13111 integer(IK) :: err
13112 end function
13113#endif
13114
13115#if RK3_ENABLED
13116 module function QAGP_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13118 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK3
13119#endif
13120 use pm_kind, only: RKC => RK3
13121 procedure(real(RKC)) :: getFunc
13122 type(ninf_type) , intent(in) :: lb
13123 type(pinf_type) , intent(in) :: ub
13124 real(RKC) , intent(in) :: abstol
13125 real(RKC) , intent(in) :: reltol
13126 type(GK31_type) , intent(in) :: qrule
13127 real(RKC) , intent(in) , contiguous :: help(:)
13128 real(RKC) , intent(out) :: integral, abserr
13129 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13130 integer(IK) , intent(out) , contiguous :: sindex(:)
13131 integer(IK) , intent(out) :: neval
13132 integer(IK) , intent(out) :: nint
13133 integer(IK) :: err
13134 end function
13135#endif
13136
13137#if RK2_ENABLED
13138 module function QAGP_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13140 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK2
13141#endif
13142 use pm_kind, only: RKC => RK2
13143 procedure(real(RKC)) :: getFunc
13144 type(ninf_type) , intent(in) :: lb
13145 type(pinf_type) , intent(in) :: ub
13146 real(RKC) , intent(in) :: abstol
13147 real(RKC) , intent(in) :: reltol
13148 type(GK31_type) , intent(in) :: qrule
13149 real(RKC) , intent(in) , contiguous :: help(:)
13150 real(RKC) , intent(out) :: integral, abserr
13151 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13152 integer(IK) , intent(out) , contiguous :: sindex(:)
13153 integer(IK) , intent(out) :: neval
13154 integer(IK) , intent(out) :: nint
13155 integer(IK) :: err
13156 end function
13157#endif
13158
13159#if RK1_ENABLED
13160 module function QAGP_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13162 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK1
13163#endif
13164 use pm_kind, only: RKC => RK1
13165 procedure(real(RKC)) :: getFunc
13166 type(ninf_type) , intent(in) :: lb
13167 type(pinf_type) , intent(in) :: ub
13168 real(RKC) , intent(in) :: abstol
13169 real(RKC) , intent(in) :: reltol
13170 type(GK31_type) , intent(in) :: qrule
13171 real(RKC) , intent(in) , contiguous :: help(:)
13172 real(RKC) , intent(out) :: integral, abserr
13173 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13174 integer(IK) , intent(out) , contiguous :: sindex(:)
13175 integer(IK) , intent(out) :: neval
13176 integer(IK) , intent(out) :: nint
13177 integer(IK) :: err
13178 end function
13179#endif
13180
13181 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13182
13183 end interface
13184
13185 ! QAGP_GK41
13186
13187 interface getQuadErr
13188
13189 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13190
13191#if RK5_ENABLED
13192 module function QAGP_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13194 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK5
13195#endif
13196 use pm_kind, only: RKC => RK5
13197 procedure(real(RKC)) :: getFunc
13198 real(RKC) , intent(in) :: lb
13199 real(RKC) , intent(in) :: ub
13200 real(RKC) , intent(in) :: abstol
13201 real(RKC) , intent(in) :: reltol
13202 type(GK41_type) , intent(in) :: qrule
13203 real(RKC) , intent(in) , contiguous :: help(:)
13204 real(RKC) , intent(out) :: integral, abserr
13205 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13206 integer(IK) , intent(out) , contiguous :: sindex(:)
13207 integer(IK) , intent(out) :: neval
13208 integer(IK) , intent(out) :: nint
13209 integer(IK) :: err
13210 end function
13211#endif
13212
13213#if RK4_ENABLED
13214 module function QAGP_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13216 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK4
13217#endif
13218 use pm_kind, only: RKC => RK4
13219 procedure(real(RKC)) :: getFunc
13220 real(RKC) , intent(in) :: lb
13221 real(RKC) , intent(in) :: ub
13222 real(RKC) , intent(in) :: abstol
13223 real(RKC) , intent(in) :: reltol
13224 type(GK41_type) , intent(in) :: qrule
13225 real(RKC) , intent(in) , contiguous :: help(:)
13226 real(RKC) , intent(out) :: integral, abserr
13227 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13228 integer(IK) , intent(out) , contiguous :: sindex(:)
13229 integer(IK) , intent(out) :: neval
13230 integer(IK) , intent(out) :: nint
13231 integer(IK) :: err
13232 end function
13233#endif
13234
13235#if RK3_ENABLED
13236 module function QAGP_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13238 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK3
13239#endif
13240 use pm_kind, only: RKC => RK3
13241 procedure(real(RKC)) :: getFunc
13242 real(RKC) , intent(in) :: lb
13243 real(RKC) , intent(in) :: ub
13244 real(RKC) , intent(in) :: abstol
13245 real(RKC) , intent(in) :: reltol
13246 type(GK41_type) , intent(in) :: qrule
13247 real(RKC) , intent(in) , contiguous :: help(:)
13248 real(RKC) , intent(out) :: integral, abserr
13249 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13250 integer(IK) , intent(out) , contiguous :: sindex(:)
13251 integer(IK) , intent(out) :: neval
13252 integer(IK) , intent(out) :: nint
13253 integer(IK) :: err
13254 end function
13255#endif
13256
13257#if RK2_ENABLED
13258 module function QAGP_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13260 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK2
13261#endif
13262 use pm_kind, only: RKC => RK2
13263 procedure(real(RKC)) :: getFunc
13264 real(RKC) , intent(in) :: lb
13265 real(RKC) , intent(in) :: ub
13266 real(RKC) , intent(in) :: abstol
13267 real(RKC) , intent(in) :: reltol
13268 type(GK41_type) , intent(in) :: qrule
13269 real(RKC) , intent(in) , contiguous :: help(:)
13270 real(RKC) , intent(out) :: integral, abserr
13271 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13272 integer(IK) , intent(out) , contiguous :: sindex(:)
13273 integer(IK) , intent(out) :: neval
13274 integer(IK) , intent(out) :: nint
13275 integer(IK) :: err
13276 end function
13277#endif
13278
13279#if RK1_ENABLED
13280 module function QAGP_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13282 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK1
13283#endif
13284 use pm_kind, only: RKC => RK1
13285 procedure(real(RKC)) :: getFunc
13286 real(RKC) , intent(in) :: lb
13287 real(RKC) , intent(in) :: ub
13288 real(RKC) , intent(in) :: abstol
13289 real(RKC) , intent(in) :: reltol
13290 type(GK41_type) , intent(in) :: qrule
13291 real(RKC) , intent(in) , contiguous :: help(:)
13292 real(RKC) , intent(out) :: integral, abserr
13293 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13294 integer(IK) , intent(out) , contiguous :: sindex(:)
13295 integer(IK) , intent(out) :: neval
13296 integer(IK) , intent(out) :: nint
13297 integer(IK) :: err
13298 end function
13299#endif
13300
13301 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13302
13303#if RK5_ENABLED
13304 module function QAGP_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13306 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK5
13307#endif
13308 use pm_kind, only: RKC => RK5
13309 procedure(real(RKC)) :: getFunc
13310 real(RKC) , intent(in) :: lb
13311 type(pinf_type) , intent(in) :: ub
13312 real(RKC) , intent(in) :: abstol
13313 real(RKC) , intent(in) :: reltol
13314 type(GK41_type) , intent(in) :: qrule
13315 real(RKC) , intent(in) , contiguous :: help(:)
13316 real(RKC) , intent(out) :: integral, abserr
13317 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13318 integer(IK) , intent(out) , contiguous :: sindex(:)
13319 integer(IK) , intent(out) :: neval
13320 integer(IK) , intent(out) :: nint
13321 integer(IK) :: err
13322 end function
13323#endif
13324
13325#if RK4_ENABLED
13326 module function QAGP_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13328 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK4
13329#endif
13330 use pm_kind, only: RKC => RK4
13331 procedure(real(RKC)) :: getFunc
13332 real(RKC) , intent(in) :: lb
13333 type(pinf_type) , intent(in) :: ub
13334 real(RKC) , intent(in) :: abstol
13335 real(RKC) , intent(in) :: reltol
13336 type(GK41_type) , intent(in) :: qrule
13337 real(RKC) , intent(in) , contiguous :: help(:)
13338 real(RKC) , intent(out) :: integral, abserr
13339 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13340 integer(IK) , intent(out) , contiguous :: sindex(:)
13341 integer(IK) , intent(out) :: neval
13342 integer(IK) , intent(out) :: nint
13343 integer(IK) :: err
13344 end function
13345#endif
13346
13347#if RK3_ENABLED
13348 module function QAGP_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13350 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK3
13351#endif
13352 use pm_kind, only: RKC => RK3
13353 procedure(real(RKC)) :: getFunc
13354 real(RKC) , intent(in) :: lb
13355 type(pinf_type) , intent(in) :: ub
13356 real(RKC) , intent(in) :: abstol
13357 real(RKC) , intent(in) :: reltol
13358 type(GK41_type) , intent(in) :: qrule
13359 real(RKC) , intent(in) , contiguous :: help(:)
13360 real(RKC) , intent(out) :: integral, abserr
13361 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13362 integer(IK) , intent(out) , contiguous :: sindex(:)
13363 integer(IK) , intent(out) :: neval
13364 integer(IK) , intent(out) :: nint
13365 integer(IK) :: err
13366 end function
13367#endif
13368
13369#if RK2_ENABLED
13370 module function QAGP_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13372 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK2
13373#endif
13374 use pm_kind, only: RKC => RK2
13375 procedure(real(RKC)) :: getFunc
13376 real(RKC) , intent(in) :: lb
13377 type(pinf_type) , intent(in) :: ub
13378 real(RKC) , intent(in) :: abstol
13379 real(RKC) , intent(in) :: reltol
13380 type(GK41_type) , intent(in) :: qrule
13381 real(RKC) , intent(in) , contiguous :: help(:)
13382 real(RKC) , intent(out) :: integral, abserr
13383 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13384 integer(IK) , intent(out) , contiguous :: sindex(:)
13385 integer(IK) , intent(out) :: neval
13386 integer(IK) , intent(out) :: nint
13387 integer(IK) :: err
13388 end function
13389#endif
13390
13391#if RK1_ENABLED
13392 module function QAGP_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13394 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK1
13395#endif
13396 use pm_kind, only: RKC => RK1
13397 procedure(real(RKC)) :: getFunc
13398 real(RKC) , intent(in) :: lb
13399 type(pinf_type) , intent(in) :: ub
13400 real(RKC) , intent(in) :: abstol
13401 real(RKC) , intent(in) :: reltol
13402 type(GK41_type) , intent(in) :: qrule
13403 real(RKC) , intent(in) , contiguous :: help(:)
13404 real(RKC) , intent(out) :: integral, abserr
13405 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13406 integer(IK) , intent(out) , contiguous :: sindex(:)
13407 integer(IK) , intent(out) :: neval
13408 integer(IK) , intent(out) :: nint
13409 integer(IK) :: err
13410 end function
13411#endif
13412
13413 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13414
13415#if RK5_ENABLED
13416 module function QAGP_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13418 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK5
13419#endif
13420 use pm_kind, only: RKC => RK5
13421 procedure(real(RKC)) :: getFunc
13422 type(ninf_type) , intent(in) :: lb
13423 real(RKC) , intent(in) :: ub
13424 real(RKC) , intent(in) :: abstol
13425 real(RKC) , intent(in) :: reltol
13426 type(GK41_type) , intent(in) :: qrule
13427 real(RKC) , intent(in) , contiguous :: help(:)
13428 real(RKC) , intent(out) :: integral, abserr
13429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13430 integer(IK) , intent(out) , contiguous :: sindex(:)
13431 integer(IK) , intent(out) :: neval
13432 integer(IK) , intent(out) :: nint
13433 integer(IK) :: err
13434 end function
13435#endif
13436
13437#if RK4_ENABLED
13438 module function QAGP_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13440 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK4
13441#endif
13442 use pm_kind, only: RKC => RK4
13443 procedure(real(RKC)) :: getFunc
13444 type(ninf_type) , intent(in) :: lb
13445 real(RKC) , intent(in) :: ub
13446 real(RKC) , intent(in) :: abstol
13447 real(RKC) , intent(in) :: reltol
13448 type(GK41_type) , intent(in) :: qrule
13449 real(RKC) , intent(in) , contiguous :: help(:)
13450 real(RKC) , intent(out) :: integral, abserr
13451 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13452 integer(IK) , intent(out) , contiguous :: sindex(:)
13453 integer(IK) , intent(out) :: neval
13454 integer(IK) , intent(out) :: nint
13455 integer(IK) :: err
13456 end function
13457#endif
13458
13459#if RK3_ENABLED
13460 module function QAGP_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13462 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK3
13463#endif
13464 use pm_kind, only: RKC => RK3
13465 procedure(real(RKC)) :: getFunc
13466 type(ninf_type) , intent(in) :: lb
13467 real(RKC) , intent(in) :: ub
13468 real(RKC) , intent(in) :: abstol
13469 real(RKC) , intent(in) :: reltol
13470 type(GK41_type) , intent(in) :: qrule
13471 real(RKC) , intent(in) , contiguous :: help(:)
13472 real(RKC) , intent(out) :: integral, abserr
13473 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13474 integer(IK) , intent(out) , contiguous :: sindex(:)
13475 integer(IK) , intent(out) :: neval
13476 integer(IK) , intent(out) :: nint
13477 integer(IK) :: err
13478 end function
13479#endif
13480
13481#if RK2_ENABLED
13482 module function QAGP_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13484 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK2
13485#endif
13486 use pm_kind, only: RKC => RK2
13487 procedure(real(RKC)) :: getFunc
13488 type(ninf_type) , intent(in) :: lb
13489 real(RKC) , intent(in) :: ub
13490 real(RKC) , intent(in) :: abstol
13491 real(RKC) , intent(in) :: reltol
13492 type(GK41_type) , intent(in) :: qrule
13493 real(RKC) , intent(in) , contiguous :: help(:)
13494 real(RKC) , intent(out) :: integral, abserr
13495 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13496 integer(IK) , intent(out) , contiguous :: sindex(:)
13497 integer(IK) , intent(out) :: neval
13498 integer(IK) , intent(out) :: nint
13499 integer(IK) :: err
13500 end function
13501#endif
13502
13503#if RK1_ENABLED
13504 module function QAGP_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13506 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK1
13507#endif
13508 use pm_kind, only: RKC => RK1
13509 procedure(real(RKC)) :: getFunc
13510 type(ninf_type) , intent(in) :: lb
13511 real(RKC) , intent(in) :: ub
13512 real(RKC) , intent(in) :: abstol
13513 real(RKC) , intent(in) :: reltol
13514 type(GK41_type) , intent(in) :: qrule
13515 real(RKC) , intent(in) , contiguous :: help(:)
13516 real(RKC) , intent(out) :: integral, abserr
13517 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13518 integer(IK) , intent(out) , contiguous :: sindex(:)
13519 integer(IK) , intent(out) :: neval
13520 integer(IK) , intent(out) :: nint
13521 integer(IK) :: err
13522 end function
13523#endif
13524
13525 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13526
13527#if RK5_ENABLED
13528 module function QAGP_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13530 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK5
13531#endif
13532 use pm_kind, only: RKC => RK5
13533 procedure(real(RKC)) :: getFunc
13534 type(ninf_type) , intent(in) :: lb
13535 type(pinf_type) , intent(in) :: ub
13536 real(RKC) , intent(in) :: abstol
13537 real(RKC) , intent(in) :: reltol
13538 type(GK41_type) , intent(in) :: qrule
13539 real(RKC) , intent(in) , contiguous :: help(:)
13540 real(RKC) , intent(out) :: integral, abserr
13541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13542 integer(IK) , intent(out) , contiguous :: sindex(:)
13543 integer(IK) , intent(out) :: neval
13544 integer(IK) , intent(out) :: nint
13545 integer(IK) :: err
13546 end function
13547#endif
13548
13549#if RK4_ENABLED
13550 module function QAGP_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13552 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK4
13553#endif
13554 use pm_kind, only: RKC => RK4
13555 procedure(real(RKC)) :: getFunc
13556 type(ninf_type) , intent(in) :: lb
13557 type(pinf_type) , intent(in) :: ub
13558 real(RKC) , intent(in) :: abstol
13559 real(RKC) , intent(in) :: reltol
13560 type(GK41_type) , intent(in) :: qrule
13561 real(RKC) , intent(in) , contiguous :: help(:)
13562 real(RKC) , intent(out) :: integral, abserr
13563 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13564 integer(IK) , intent(out) , contiguous :: sindex(:)
13565 integer(IK) , intent(out) :: neval
13566 integer(IK) , intent(out) :: nint
13567 integer(IK) :: err
13568 end function
13569#endif
13570
13571#if RK3_ENABLED
13572 module function QAGP_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13574 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK3
13575#endif
13576 use pm_kind, only: RKC => RK3
13577 procedure(real(RKC)) :: getFunc
13578 type(ninf_type) , intent(in) :: lb
13579 type(pinf_type) , intent(in) :: ub
13580 real(RKC) , intent(in) :: abstol
13581 real(RKC) , intent(in) :: reltol
13582 type(GK41_type) , intent(in) :: qrule
13583 real(RKC) , intent(in) , contiguous :: help(:)
13584 real(RKC) , intent(out) :: integral, abserr
13585 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13586 integer(IK) , intent(out) , contiguous :: sindex(:)
13587 integer(IK) , intent(out) :: neval
13588 integer(IK) , intent(out) :: nint
13589 integer(IK) :: err
13590 end function
13591#endif
13592
13593#if RK2_ENABLED
13594 module function QAGP_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13596 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK2
13597#endif
13598 use pm_kind, only: RKC => RK2
13599 procedure(real(RKC)) :: getFunc
13600 type(ninf_type) , intent(in) :: lb
13601 type(pinf_type) , intent(in) :: ub
13602 real(RKC) , intent(in) :: abstol
13603 real(RKC) , intent(in) :: reltol
13604 type(GK41_type) , intent(in) :: qrule
13605 real(RKC) , intent(in) , contiguous :: help(:)
13606 real(RKC) , intent(out) :: integral, abserr
13607 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13608 integer(IK) , intent(out) , contiguous :: sindex(:)
13609 integer(IK) , intent(out) :: neval
13610 integer(IK) , intent(out) :: nint
13611 integer(IK) :: err
13612 end function
13613#endif
13614
13615#if RK1_ENABLED
13616 module function QAGP_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13618 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK1
13619#endif
13620 use pm_kind, only: RKC => RK1
13621 procedure(real(RKC)) :: getFunc
13622 type(ninf_type) , intent(in) :: lb
13623 type(pinf_type) , intent(in) :: ub
13624 real(RKC) , intent(in) :: abstol
13625 real(RKC) , intent(in) :: reltol
13626 type(GK41_type) , intent(in) :: qrule
13627 real(RKC) , intent(in) , contiguous :: help(:)
13628 real(RKC) , intent(out) :: integral, abserr
13629 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13630 integer(IK) , intent(out) , contiguous :: sindex(:)
13631 integer(IK) , intent(out) :: neval
13632 integer(IK) , intent(out) :: nint
13633 integer(IK) :: err
13634 end function
13635#endif
13636
13637 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13638
13639 end interface
13640
13641 ! QAGP_GK51
13642
13643 interface getQuadErr
13644
13645 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13646
13647#if RK5_ENABLED
13648 module function QAGP_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13650 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK5
13651#endif
13652 use pm_kind, only: RKC => RK5
13653 procedure(real(RKC)) :: getFunc
13654 real(RKC) , intent(in) :: lb
13655 real(RKC) , intent(in) :: ub
13656 real(RKC) , intent(in) :: abstol
13657 real(RKC) , intent(in) :: reltol
13658 type(GK51_type) , intent(in) :: qrule
13659 real(RKC) , intent(in) , contiguous :: help(:)
13660 real(RKC) , intent(out) :: integral, abserr
13661 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13662 integer(IK) , intent(out) , contiguous :: sindex(:)
13663 integer(IK) , intent(out) :: neval
13664 integer(IK) , intent(out) :: nint
13665 integer(IK) :: err
13666 end function
13667#endif
13668
13669#if RK4_ENABLED
13670 module function QAGP_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13672 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK4
13673#endif
13674 use pm_kind, only: RKC => RK4
13675 procedure(real(RKC)) :: getFunc
13676 real(RKC) , intent(in) :: lb
13677 real(RKC) , intent(in) :: ub
13678 real(RKC) , intent(in) :: abstol
13679 real(RKC) , intent(in) :: reltol
13680 type(GK51_type) , intent(in) :: qrule
13681 real(RKC) , intent(in) , contiguous :: help(:)
13682 real(RKC) , intent(out) :: integral, abserr
13683 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13684 integer(IK) , intent(out) , contiguous :: sindex(:)
13685 integer(IK) , intent(out) :: neval
13686 integer(IK) , intent(out) :: nint
13687 integer(IK) :: err
13688 end function
13689#endif
13690
13691#if RK3_ENABLED
13692 module function QAGP_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13694 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK3
13695#endif
13696 use pm_kind, only: RKC => RK3
13697 procedure(real(RKC)) :: getFunc
13698 real(RKC) , intent(in) :: lb
13699 real(RKC) , intent(in) :: ub
13700 real(RKC) , intent(in) :: abstol
13701 real(RKC) , intent(in) :: reltol
13702 type(GK51_type) , intent(in) :: qrule
13703 real(RKC) , intent(in) , contiguous :: help(:)
13704 real(RKC) , intent(out) :: integral, abserr
13705 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13706 integer(IK) , intent(out) , contiguous :: sindex(:)
13707 integer(IK) , intent(out) :: neval
13708 integer(IK) , intent(out) :: nint
13709 integer(IK) :: err
13710 end function
13711#endif
13712
13713#if RK2_ENABLED
13714 module function QAGP_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13716 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK2
13717#endif
13718 use pm_kind, only: RKC => RK2
13719 procedure(real(RKC)) :: getFunc
13720 real(RKC) , intent(in) :: lb
13721 real(RKC) , intent(in) :: ub
13722 real(RKC) , intent(in) :: abstol
13723 real(RKC) , intent(in) :: reltol
13724 type(GK51_type) , intent(in) :: qrule
13725 real(RKC) , intent(in) , contiguous :: help(:)
13726 real(RKC) , intent(out) :: integral, abserr
13727 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13728 integer(IK) , intent(out) , contiguous :: sindex(:)
13729 integer(IK) , intent(out) :: neval
13730 integer(IK) , intent(out) :: nint
13731 integer(IK) :: err
13732 end function
13733#endif
13734
13735#if RK1_ENABLED
13736 module function QAGP_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13738 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK1
13739#endif
13740 use pm_kind, only: RKC => RK1
13741 procedure(real(RKC)) :: getFunc
13742 real(RKC) , intent(in) :: lb
13743 real(RKC) , intent(in) :: ub
13744 real(RKC) , intent(in) :: abstol
13745 real(RKC) , intent(in) :: reltol
13746 type(GK51_type) , intent(in) :: qrule
13747 real(RKC) , intent(in) , contiguous :: help(:)
13748 real(RKC) , intent(out) :: integral, abserr
13749 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13750 integer(IK) , intent(out) , contiguous :: sindex(:)
13751 integer(IK) , intent(out) :: neval
13752 integer(IK) , intent(out) :: nint
13753 integer(IK) :: err
13754 end function
13755#endif
13756
13757 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13758
13759#if RK5_ENABLED
13760 module function QAGP_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13762 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK5
13763#endif
13764 use pm_kind, only: RKC => RK5
13765 procedure(real(RKC)) :: getFunc
13766 real(RKC) , intent(in) :: lb
13767 type(pinf_type) , intent(in) :: ub
13768 real(RKC) , intent(in) :: abstol
13769 real(RKC) , intent(in) :: reltol
13770 type(GK51_type) , intent(in) :: qrule
13771 real(RKC) , intent(in) , contiguous :: help(:)
13772 real(RKC) , intent(out) :: integral, abserr
13773 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13774 integer(IK) , intent(out) , contiguous :: sindex(:)
13775 integer(IK) , intent(out) :: neval
13776 integer(IK) , intent(out) :: nint
13777 integer(IK) :: err
13778 end function
13779#endif
13780
13781#if RK4_ENABLED
13782 module function QAGP_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13784 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK4
13785#endif
13786 use pm_kind, only: RKC => RK4
13787 procedure(real(RKC)) :: getFunc
13788 real(RKC) , intent(in) :: lb
13789 type(pinf_type) , intent(in) :: ub
13790 real(RKC) , intent(in) :: abstol
13791 real(RKC) , intent(in) :: reltol
13792 type(GK51_type) , intent(in) :: qrule
13793 real(RKC) , intent(in) , contiguous :: help(:)
13794 real(RKC) , intent(out) :: integral, abserr
13795 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13796 integer(IK) , intent(out) , contiguous :: sindex(:)
13797 integer(IK) , intent(out) :: neval
13798 integer(IK) , intent(out) :: nint
13799 integer(IK) :: err
13800 end function
13801#endif
13802
13803#if RK3_ENABLED
13804 module function QAGP_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13806 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK3
13807#endif
13808 use pm_kind, only: RKC => RK3
13809 procedure(real(RKC)) :: getFunc
13810 real(RKC) , intent(in) :: lb
13811 type(pinf_type) , intent(in) :: ub
13812 real(RKC) , intent(in) :: abstol
13813 real(RKC) , intent(in) :: reltol
13814 type(GK51_type) , intent(in) :: qrule
13815 real(RKC) , intent(in) , contiguous :: help(:)
13816 real(RKC) , intent(out) :: integral, abserr
13817 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13818 integer(IK) , intent(out) , contiguous :: sindex(:)
13819 integer(IK) , intent(out) :: neval
13820 integer(IK) , intent(out) :: nint
13821 integer(IK) :: err
13822 end function
13823#endif
13824
13825#if RK2_ENABLED
13826 module function QAGP_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13828 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK2
13829#endif
13830 use pm_kind, only: RKC => RK2
13831 procedure(real(RKC)) :: getFunc
13832 real(RKC) , intent(in) :: lb
13833 type(pinf_type) , intent(in) :: ub
13834 real(RKC) , intent(in) :: abstol
13835 real(RKC) , intent(in) :: reltol
13836 type(GK51_type) , intent(in) :: qrule
13837 real(RKC) , intent(in) , contiguous :: help(:)
13838 real(RKC) , intent(out) :: integral, abserr
13839 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13840 integer(IK) , intent(out) , contiguous :: sindex(:)
13841 integer(IK) , intent(out) :: neval
13842 integer(IK) , intent(out) :: nint
13843 integer(IK) :: err
13844 end function
13845#endif
13846
13847#if RK1_ENABLED
13848 module function QAGP_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13850 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK1
13851#endif
13852 use pm_kind, only: RKC => RK1
13853 procedure(real(RKC)) :: getFunc
13854 real(RKC) , intent(in) :: lb
13855 type(pinf_type) , intent(in) :: ub
13856 real(RKC) , intent(in) :: abstol
13857 real(RKC) , intent(in) :: reltol
13858 type(GK51_type) , intent(in) :: qrule
13859 real(RKC) , intent(in) , contiguous :: help(:)
13860 real(RKC) , intent(out) :: integral, abserr
13861 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13862 integer(IK) , intent(out) , contiguous :: sindex(:)
13863 integer(IK) , intent(out) :: neval
13864 integer(IK) , intent(out) :: nint
13865 integer(IK) :: err
13866 end function
13867#endif
13868
13869 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13870
13871#if RK5_ENABLED
13872 module function QAGP_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13874 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK5
13875#endif
13876 use pm_kind, only: RKC => RK5
13877 procedure(real(RKC)) :: getFunc
13878 type(ninf_type) , intent(in) :: lb
13879 real(RKC) , intent(in) :: ub
13880 real(RKC) , intent(in) :: abstol
13881 real(RKC) , intent(in) :: reltol
13882 type(GK51_type) , intent(in) :: qrule
13883 real(RKC) , intent(in) , contiguous :: help(:)
13884 real(RKC) , intent(out) :: integral, abserr
13885 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13886 integer(IK) , intent(out) , contiguous :: sindex(:)
13887 integer(IK) , intent(out) :: neval
13888 integer(IK) , intent(out) :: nint
13889 integer(IK) :: err
13890 end function
13891#endif
13892
13893#if RK4_ENABLED
13894 module function QAGP_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13896 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK4
13897#endif
13898 use pm_kind, only: RKC => RK4
13899 procedure(real(RKC)) :: getFunc
13900 type(ninf_type) , intent(in) :: lb
13901 real(RKC) , intent(in) :: ub
13902 real(RKC) , intent(in) :: abstol
13903 real(RKC) , intent(in) :: reltol
13904 type(GK51_type) , intent(in) :: qrule
13905 real(RKC) , intent(in) , contiguous :: help(:)
13906 real(RKC) , intent(out) :: integral, abserr
13907 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13908 integer(IK) , intent(out) , contiguous :: sindex(:)
13909 integer(IK) , intent(out) :: neval
13910 integer(IK) , intent(out) :: nint
13911 integer(IK) :: err
13912 end function
13913#endif
13914
13915#if RK3_ENABLED
13916 module function QAGP_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13918 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK3
13919#endif
13920 use pm_kind, only: RKC => RK3
13921 procedure(real(RKC)) :: getFunc
13922 type(ninf_type) , intent(in) :: lb
13923 real(RKC) , intent(in) :: ub
13924 real(RKC) , intent(in) :: abstol
13925 real(RKC) , intent(in) :: reltol
13926 type(GK51_type) , intent(in) :: qrule
13927 real(RKC) , intent(in) , contiguous :: help(:)
13928 real(RKC) , intent(out) :: integral, abserr
13929 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13930 integer(IK) , intent(out) , contiguous :: sindex(:)
13931 integer(IK) , intent(out) :: neval
13932 integer(IK) , intent(out) :: nint
13933 integer(IK) :: err
13934 end function
13935#endif
13936
13937#if RK2_ENABLED
13938 module function QAGP_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13940 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK2
13941#endif
13942 use pm_kind, only: RKC => RK2
13943 procedure(real(RKC)) :: getFunc
13944 type(ninf_type) , intent(in) :: lb
13945 real(RKC) , intent(in) :: ub
13946 real(RKC) , intent(in) :: abstol
13947 real(RKC) , intent(in) :: reltol
13948 type(GK51_type) , intent(in) :: qrule
13949 real(RKC) , intent(in) , contiguous :: help(:)
13950 real(RKC) , intent(out) :: integral, abserr
13951 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13952 integer(IK) , intent(out) , contiguous :: sindex(:)
13953 integer(IK) , intent(out) :: neval
13954 integer(IK) , intent(out) :: nint
13955 integer(IK) :: err
13956 end function
13957#endif
13958
13959#if RK1_ENABLED
13960 module function QAGP_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK1
13963#endif
13964 use pm_kind, only: RKC => RK1
13965 procedure(real(RKC)) :: getFunc
13966 type(ninf_type) , intent(in) :: lb
13967 real(RKC) , intent(in) :: ub
13968 real(RKC) , intent(in) :: abstol
13969 real(RKC) , intent(in) :: reltol
13970 type(GK51_type) , intent(in) :: qrule
13971 real(RKC) , intent(in) , contiguous :: help(:)
13972 real(RKC) , intent(out) :: integral, abserr
13973 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13974 integer(IK) , intent(out) , contiguous :: sindex(:)
13975 integer(IK) , intent(out) :: neval
13976 integer(IK) , intent(out) :: nint
13977 integer(IK) :: err
13978 end function
13979#endif
13980
13981 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13982
13983#if RK5_ENABLED
13984 module function QAGP_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13986 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK5
13987#endif
13988 use pm_kind, only: RKC => RK5
13989 procedure(real(RKC)) :: getFunc
13990 type(ninf_type) , intent(in) :: lb
13991 type(pinf_type) , intent(in) :: ub
13992 real(RKC) , intent(in) :: abstol
13993 real(RKC) , intent(in) :: reltol
13994 type(GK51_type) , intent(in) :: qrule
13995 real(RKC) , intent(in) , contiguous :: help(:)
13996 real(RKC) , intent(out) :: integral, abserr
13997 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13998 integer(IK) , intent(out) , contiguous :: sindex(:)
13999 integer(IK) , intent(out) :: neval
14000 integer(IK) , intent(out) :: nint
14001 integer(IK) :: err
14002 end function
14003#endif
14004
14005#if RK4_ENABLED
14006 module function QAGP_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14008 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK4
14009#endif
14010 use pm_kind, only: RKC => RK4
14011 procedure(real(RKC)) :: getFunc
14012 type(ninf_type) , intent(in) :: lb
14013 type(pinf_type) , intent(in) :: ub
14014 real(RKC) , intent(in) :: abstol
14015 real(RKC) , intent(in) :: reltol
14016 type(GK51_type) , intent(in) :: qrule
14017 real(RKC) , intent(in) , contiguous :: help(:)
14018 real(RKC) , intent(out) :: integral, abserr
14019 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14020 integer(IK) , intent(out) , contiguous :: sindex(:)
14021 integer(IK) , intent(out) :: neval
14022 integer(IK) , intent(out) :: nint
14023 integer(IK) :: err
14024 end function
14025#endif
14026
14027#if RK3_ENABLED
14028 module function QAGP_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14030 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK3
14031#endif
14032 use pm_kind, only: RKC => RK3
14033 procedure(real(RKC)) :: getFunc
14034 type(ninf_type) , intent(in) :: lb
14035 type(pinf_type) , intent(in) :: ub
14036 real(RKC) , intent(in) :: abstol
14037 real(RKC) , intent(in) :: reltol
14038 type(GK51_type) , intent(in) :: qrule
14039 real(RKC) , intent(in) , contiguous :: help(:)
14040 real(RKC) , intent(out) :: integral, abserr
14041 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14042 integer(IK) , intent(out) , contiguous :: sindex(:)
14043 integer(IK) , intent(out) :: neval
14044 integer(IK) , intent(out) :: nint
14045 integer(IK) :: err
14046 end function
14047#endif
14048
14049#if RK2_ENABLED
14050 module function QAGP_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14052 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK2
14053#endif
14054 use pm_kind, only: RKC => RK2
14055 procedure(real(RKC)) :: getFunc
14056 type(ninf_type) , intent(in) :: lb
14057 type(pinf_type) , intent(in) :: ub
14058 real(RKC) , intent(in) :: abstol
14059 real(RKC) , intent(in) :: reltol
14060 type(GK51_type) , intent(in) :: qrule
14061 real(RKC) , intent(in) , contiguous :: help(:)
14062 real(RKC) , intent(out) :: integral, abserr
14063 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14064 integer(IK) , intent(out) , contiguous :: sindex(:)
14065 integer(IK) , intent(out) :: neval
14066 integer(IK) , intent(out) :: nint
14067 integer(IK) :: err
14068 end function
14069#endif
14070
14071#if RK1_ENABLED
14072 module function QAGP_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14074 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK1
14075#endif
14076 use pm_kind, only: RKC => RK1
14077 procedure(real(RKC)) :: getFunc
14078 type(ninf_type) , intent(in) :: lb
14079 type(pinf_type) , intent(in) :: ub
14080 real(RKC) , intent(in) :: abstol
14081 real(RKC) , intent(in) :: reltol
14082 type(GK51_type) , intent(in) :: qrule
14083 real(RKC) , intent(in) , contiguous :: help(:)
14084 real(RKC) , intent(out) :: integral, abserr
14085 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14086 integer(IK) , intent(out) , contiguous :: sindex(:)
14087 integer(IK) , intent(out) :: neval
14088 integer(IK) , intent(out) :: nint
14089 integer(IK) :: err
14090 end function
14091#endif
14092
14093 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14094
14095 end interface
14096
14097 ! QAGP_GK61
14098
14099 interface getQuadErr
14100
14101 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14102
14103#if RK5_ENABLED
14104 module function QAGP_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14106 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK5
14107#endif
14108 use pm_kind, only: RKC => RK5
14109 procedure(real(RKC)) :: getFunc
14110 real(RKC) , intent(in) :: lb
14111 real(RKC) , intent(in) :: ub
14112 real(RKC) , intent(in) :: abstol
14113 real(RKC) , intent(in) :: reltol
14114 type(GK61_type) , intent(in) :: qrule
14115 real(RKC) , intent(in) , contiguous :: help(:)
14116 real(RKC) , intent(out) :: integral, abserr
14117 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14118 integer(IK) , intent(out) , contiguous :: sindex(:)
14119 integer(IK) , intent(out) :: neval
14120 integer(IK) , intent(out) :: nint
14121 integer(IK) :: err
14122 end function
14123#endif
14124
14125#if RK4_ENABLED
14126 module function QAGP_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14128 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK4
14129#endif
14130 use pm_kind, only: RKC => RK4
14131 procedure(real(RKC)) :: getFunc
14132 real(RKC) , intent(in) :: lb
14133 real(RKC) , intent(in) :: ub
14134 real(RKC) , intent(in) :: abstol
14135 real(RKC) , intent(in) :: reltol
14136 type(GK61_type) , intent(in) :: qrule
14137 real(RKC) , intent(in) , contiguous :: help(:)
14138 real(RKC) , intent(out) :: integral, abserr
14139 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14140 integer(IK) , intent(out) , contiguous :: sindex(:)
14141 integer(IK) , intent(out) :: neval
14142 integer(IK) , intent(out) :: nint
14143 integer(IK) :: err
14144 end function
14145#endif
14146
14147#if RK3_ENABLED
14148 module function QAGP_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14150 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK3
14151#endif
14152 use pm_kind, only: RKC => RK3
14153 procedure(real(RKC)) :: getFunc
14154 real(RKC) , intent(in) :: lb
14155 real(RKC) , intent(in) :: ub
14156 real(RKC) , intent(in) :: abstol
14157 real(RKC) , intent(in) :: reltol
14158 type(GK61_type) , intent(in) :: qrule
14159 real(RKC) , intent(in) , contiguous :: help(:)
14160 real(RKC) , intent(out) :: integral, abserr
14161 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14162 integer(IK) , intent(out) , contiguous :: sindex(:)
14163 integer(IK) , intent(out) :: neval
14164 integer(IK) , intent(out) :: nint
14165 integer(IK) :: err
14166 end function
14167#endif
14168
14169#if RK2_ENABLED
14170 module function QAGP_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14172 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK2
14173#endif
14174 use pm_kind, only: RKC => RK2
14175 procedure(real(RKC)) :: getFunc
14176 real(RKC) , intent(in) :: lb
14177 real(RKC) , intent(in) :: ub
14178 real(RKC) , intent(in) :: abstol
14179 real(RKC) , intent(in) :: reltol
14180 type(GK61_type) , intent(in) :: qrule
14181 real(RKC) , intent(in) , contiguous :: help(:)
14182 real(RKC) , intent(out) :: integral, abserr
14183 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14184 integer(IK) , intent(out) , contiguous :: sindex(:)
14185 integer(IK) , intent(out) :: neval
14186 integer(IK) , intent(out) :: nint
14187 integer(IK) :: err
14188 end function
14189#endif
14190
14191#if RK1_ENABLED
14192 module function QAGP_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14194 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK1
14195#endif
14196 use pm_kind, only: RKC => RK1
14197 procedure(real(RKC)) :: getFunc
14198 real(RKC) , intent(in) :: lb
14199 real(RKC) , intent(in) :: ub
14200 real(RKC) , intent(in) :: abstol
14201 real(RKC) , intent(in) :: reltol
14202 type(GK61_type) , intent(in) :: qrule
14203 real(RKC) , intent(in) , contiguous :: help(:)
14204 real(RKC) , intent(out) :: integral, abserr
14205 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14206 integer(IK) , intent(out) , contiguous :: sindex(:)
14207 integer(IK) , intent(out) :: neval
14208 integer(IK) , intent(out) :: nint
14209 integer(IK) :: err
14210 end function
14211#endif
14212
14213 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14214
14215#if RK5_ENABLED
14216 module function QAGP_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14218 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK5
14219#endif
14220 use pm_kind, only: RKC => RK5
14221 procedure(real(RKC)) :: getFunc
14222 real(RKC) , intent(in) :: lb
14223 type(pinf_type) , intent(in) :: ub
14224 real(RKC) , intent(in) :: abstol
14225 real(RKC) , intent(in) :: reltol
14226 type(GK61_type) , intent(in) :: qrule
14227 real(RKC) , intent(in) , contiguous :: help(:)
14228 real(RKC) , intent(out) :: integral, abserr
14229 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14230 integer(IK) , intent(out) , contiguous :: sindex(:)
14231 integer(IK) , intent(out) :: neval
14232 integer(IK) , intent(out) :: nint
14233 integer(IK) :: err
14234 end function
14235#endif
14236
14237#if RK4_ENABLED
14238 module function QAGP_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14240 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK4
14241#endif
14242 use pm_kind, only: RKC => RK4
14243 procedure(real(RKC)) :: getFunc
14244 real(RKC) , intent(in) :: lb
14245 type(pinf_type) , intent(in) :: ub
14246 real(RKC) , intent(in) :: abstol
14247 real(RKC) , intent(in) :: reltol
14248 type(GK61_type) , intent(in) :: qrule
14249 real(RKC) , intent(in) , contiguous :: help(:)
14250 real(RKC) , intent(out) :: integral, abserr
14251 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14252 integer(IK) , intent(out) , contiguous :: sindex(:)
14253 integer(IK) , intent(out) :: neval
14254 integer(IK) , intent(out) :: nint
14255 integer(IK) :: err
14256 end function
14257#endif
14258
14259#if RK3_ENABLED
14260 module function QAGP_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14262 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK3
14263#endif
14264 use pm_kind, only: RKC => RK3
14265 procedure(real(RKC)) :: getFunc
14266 real(RKC) , intent(in) :: lb
14267 type(pinf_type) , intent(in) :: ub
14268 real(RKC) , intent(in) :: abstol
14269 real(RKC) , intent(in) :: reltol
14270 type(GK61_type) , intent(in) :: qrule
14271 real(RKC) , intent(in) , contiguous :: help(:)
14272 real(RKC) , intent(out) :: integral, abserr
14273 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14274 integer(IK) , intent(out) , contiguous :: sindex(:)
14275 integer(IK) , intent(out) :: neval
14276 integer(IK) , intent(out) :: nint
14277 integer(IK) :: err
14278 end function
14279#endif
14280
14281#if RK2_ENABLED
14282 module function QAGP_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14284 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK2
14285#endif
14286 use pm_kind, only: RKC => RK2
14287 procedure(real(RKC)) :: getFunc
14288 real(RKC) , intent(in) :: lb
14289 type(pinf_type) , intent(in) :: ub
14290 real(RKC) , intent(in) :: abstol
14291 real(RKC) , intent(in) :: reltol
14292 type(GK61_type) , intent(in) :: qrule
14293 real(RKC) , intent(in) , contiguous :: help(:)
14294 real(RKC) , intent(out) :: integral, abserr
14295 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14296 integer(IK) , intent(out) , contiguous :: sindex(:)
14297 integer(IK) , intent(out) :: neval
14298 integer(IK) , intent(out) :: nint
14299 integer(IK) :: err
14300 end function
14301#endif
14302
14303#if RK1_ENABLED
14304 module function QAGP_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14306 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK1
14307#endif
14308 use pm_kind, only: RKC => RK1
14309 procedure(real(RKC)) :: getFunc
14310 real(RKC) , intent(in) :: lb
14311 type(pinf_type) , intent(in) :: ub
14312 real(RKC) , intent(in) :: abstol
14313 real(RKC) , intent(in) :: reltol
14314 type(GK61_type) , intent(in) :: qrule
14315 real(RKC) , intent(in) , contiguous :: help(:)
14316 real(RKC) , intent(out) :: integral, abserr
14317 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14318 integer(IK) , intent(out) , contiguous :: sindex(:)
14319 integer(IK) , intent(out) :: neval
14320 integer(IK) , intent(out) :: nint
14321 integer(IK) :: err
14322 end function
14323#endif
14324
14325 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14326
14327#if RK5_ENABLED
14328 module function QAGP_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14330 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK5
14331#endif
14332 use pm_kind, only: RKC => RK5
14333 procedure(real(RKC)) :: getFunc
14334 type(ninf_type) , intent(in) :: lb
14335 real(RKC) , intent(in) :: ub
14336 real(RKC) , intent(in) :: abstol
14337 real(RKC) , intent(in) :: reltol
14338 type(GK61_type) , intent(in) :: qrule
14339 real(RKC) , intent(in) , contiguous :: help(:)
14340 real(RKC) , intent(out) :: integral, abserr
14341 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14342 integer(IK) , intent(out) , contiguous :: sindex(:)
14343 integer(IK) , intent(out) :: neval
14344 integer(IK) , intent(out) :: nint
14345 integer(IK) :: err
14346 end function
14347#endif
14348
14349#if RK4_ENABLED
14350 module function QAGP_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14352 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK4
14353#endif
14354 use pm_kind, only: RKC => RK4
14355 procedure(real(RKC)) :: getFunc
14356 type(ninf_type) , intent(in) :: lb
14357 real(RKC) , intent(in) :: ub
14358 real(RKC) , intent(in) :: abstol
14359 real(RKC) , intent(in) :: reltol
14360 type(GK61_type) , intent(in) :: qrule
14361 real(RKC) , intent(in) , contiguous :: help(:)
14362 real(RKC) , intent(out) :: integral, abserr
14363 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14364 integer(IK) , intent(out) , contiguous :: sindex(:)
14365 integer(IK) , intent(out) :: neval
14366 integer(IK) , intent(out) :: nint
14367 integer(IK) :: err
14368 end function
14369#endif
14370
14371#if RK3_ENABLED
14372 module function QAGP_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14374 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK3
14375#endif
14376 use pm_kind, only: RKC => RK3
14377 procedure(real(RKC)) :: getFunc
14378 type(ninf_type) , intent(in) :: lb
14379 real(RKC) , intent(in) :: ub
14380 real(RKC) , intent(in) :: abstol
14381 real(RKC) , intent(in) :: reltol
14382 type(GK61_type) , intent(in) :: qrule
14383 real(RKC) , intent(in) , contiguous :: help(:)
14384 real(RKC) , intent(out) :: integral, abserr
14385 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14386 integer(IK) , intent(out) , contiguous :: sindex(:)
14387 integer(IK) , intent(out) :: neval
14388 integer(IK) , intent(out) :: nint
14389 integer(IK) :: err
14390 end function
14391#endif
14392
14393#if RK2_ENABLED
14394 module function QAGP_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14396 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK2
14397#endif
14398 use pm_kind, only: RKC => RK2
14399 procedure(real(RKC)) :: getFunc
14400 type(ninf_type) , intent(in) :: lb
14401 real(RKC) , intent(in) :: ub
14402 real(RKC) , intent(in) :: abstol
14403 real(RKC) , intent(in) :: reltol
14404 type(GK61_type) , intent(in) :: qrule
14405 real(RKC) , intent(in) , contiguous :: help(:)
14406 real(RKC) , intent(out) :: integral, abserr
14407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14408 integer(IK) , intent(out) , contiguous :: sindex(:)
14409 integer(IK) , intent(out) :: neval
14410 integer(IK) , intent(out) :: nint
14411 integer(IK) :: err
14412 end function
14413#endif
14414
14415#if RK1_ENABLED
14416 module function QAGP_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14418 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK1
14419#endif
14420 use pm_kind, only: RKC => RK1
14421 procedure(real(RKC)) :: getFunc
14422 type(ninf_type) , intent(in) :: lb
14423 real(RKC) , intent(in) :: ub
14424 real(RKC) , intent(in) :: abstol
14425 real(RKC) , intent(in) :: reltol
14426 type(GK61_type) , intent(in) :: qrule
14427 real(RKC) , intent(in) , contiguous :: help(:)
14428 real(RKC) , intent(out) :: integral, abserr
14429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14430 integer(IK) , intent(out) , contiguous :: sindex(:)
14431 integer(IK) , intent(out) :: neval
14432 integer(IK) , intent(out) :: nint
14433 integer(IK) :: err
14434 end function
14435#endif
14436
14437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14438
14439#if RK5_ENABLED
14440 module function QAGP_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14442 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK5
14443#endif
14444 use pm_kind, only: RKC => RK5
14445 procedure(real(RKC)) :: getFunc
14446 type(ninf_type) , intent(in) :: lb
14447 type(pinf_type) , intent(in) :: ub
14448 real(RKC) , intent(in) :: abstol
14449 real(RKC) , intent(in) :: reltol
14450 type(GK61_type) , intent(in) :: qrule
14451 real(RKC) , intent(in) , contiguous :: help(:)
14452 real(RKC) , intent(out) :: integral, abserr
14453 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14454 integer(IK) , intent(out) , contiguous :: sindex(:)
14455 integer(IK) , intent(out) :: neval
14456 integer(IK) , intent(out) :: nint
14457 integer(IK) :: err
14458 end function
14459#endif
14460
14461#if RK4_ENABLED
14462 module function QAGP_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14464 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK4
14465#endif
14466 use pm_kind, only: RKC => RK4
14467 procedure(real(RKC)) :: getFunc
14468 type(ninf_type) , intent(in) :: lb
14469 type(pinf_type) , intent(in) :: ub
14470 real(RKC) , intent(in) :: abstol
14471 real(RKC) , intent(in) :: reltol
14472 type(GK61_type) , intent(in) :: qrule
14473 real(RKC) , intent(in) , contiguous :: help(:)
14474 real(RKC) , intent(out) :: integral, abserr
14475 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14476 integer(IK) , intent(out) , contiguous :: sindex(:)
14477 integer(IK) , intent(out) :: neval
14478 integer(IK) , intent(out) :: nint
14479 integer(IK) :: err
14480 end function
14481#endif
14482
14483#if RK3_ENABLED
14484 module function QAGP_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14486 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK3
14487#endif
14488 use pm_kind, only: RKC => RK3
14489 procedure(real(RKC)) :: getFunc
14490 type(ninf_type) , intent(in) :: lb
14491 type(pinf_type) , intent(in) :: ub
14492 real(RKC) , intent(in) :: abstol
14493 real(RKC) , intent(in) :: reltol
14494 type(GK61_type) , intent(in) :: qrule
14495 real(RKC) , intent(in) , contiguous :: help(:)
14496 real(RKC) , intent(out) :: integral, abserr
14497 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14498 integer(IK) , intent(out) , contiguous :: sindex(:)
14499 integer(IK) , intent(out) :: neval
14500 integer(IK) , intent(out) :: nint
14501 integer(IK) :: err
14502 end function
14503#endif
14504
14505#if RK2_ENABLED
14506 module function QAGP_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14508 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK2
14509#endif
14510 use pm_kind, only: RKC => RK2
14511 procedure(real(RKC)) :: getFunc
14512 type(ninf_type) , intent(in) :: lb
14513 type(pinf_type) , intent(in) :: ub
14514 real(RKC) , intent(in) :: abstol
14515 real(RKC) , intent(in) :: reltol
14516 type(GK61_type) , intent(in) :: qrule
14517 real(RKC) , intent(in) , contiguous :: help(:)
14518 real(RKC) , intent(out) :: integral, abserr
14519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14520 integer(IK) , intent(out) , contiguous :: sindex(:)
14521 integer(IK) , intent(out) :: neval
14522 integer(IK) , intent(out) :: nint
14523 integer(IK) :: err
14524 end function
14525#endif
14526
14527#if RK1_ENABLED
14528 module function QAGP_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14530 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK1
14531#endif
14532 use pm_kind, only: RKC => RK1
14533 procedure(real(RKC)) :: getFunc
14534 type(ninf_type) , intent(in) :: lb
14535 type(pinf_type) , intent(in) :: ub
14536 real(RKC) , intent(in) :: abstol
14537 real(RKC) , intent(in) :: reltol
14538 type(GK61_type) , intent(in) :: qrule
14539 real(RKC) , intent(in) , contiguous :: help(:)
14540 real(RKC) , intent(out) :: integral, abserr
14541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14542 integer(IK) , intent(out) , contiguous :: sindex(:)
14543 integer(IK) , intent(out) :: neval
14544 integer(IK) , intent(out) :: nint
14545 integer(IK) :: err
14546 end function
14547#endif
14548
14549 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14550
14551 end interface
14552
14553 ! QAGP_GKXX
14554
14555 interface getQuadErr
14556
14557 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14558
14559#if RK5_ENABLED
14560 module function QAGP_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14562 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK5
14563#endif
14564 use pm_kind, only: RKC => RK5
14565 procedure(real(RKC)) :: getFunc
14566 real(RKC) , intent(in) :: lb
14567 real(RKC) , intent(in) :: ub
14568 real(RKC) , intent(in) :: abstol
14569 real(RKC) , intent(in) :: reltol
14570 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14571 real(RKC) , intent(in) , contiguous :: help(:)
14572 real(RKC) , intent(out) :: integral, abserr
14573 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14574 integer(IK) , intent(out) , contiguous :: sindex(:)
14575 integer(IK) , intent(out) :: neval
14576 integer(IK) , intent(out) :: nint
14577 integer(IK) :: err
14578 end function
14579#endif
14580
14581#if RK4_ENABLED
14582 module function QAGP_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14584 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK4
14585#endif
14586 use pm_kind, only: RKC => RK4
14587 procedure(real(RKC)) :: getFunc
14588 real(RKC) , intent(in) :: lb
14589 real(RKC) , intent(in) :: ub
14590 real(RKC) , intent(in) :: abstol
14591 real(RKC) , intent(in) :: reltol
14592 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14593 real(RKC) , intent(in) , contiguous :: help(:)
14594 real(RKC) , intent(out) :: integral, abserr
14595 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14596 integer(IK) , intent(out) , contiguous :: sindex(:)
14597 integer(IK) , intent(out) :: neval
14598 integer(IK) , intent(out) :: nint
14599 integer(IK) :: err
14600 end function
14601#endif
14602
14603#if RK3_ENABLED
14604 module function QAGP_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14606 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK3
14607#endif
14608 use pm_kind, only: RKC => RK3
14609 procedure(real(RKC)) :: getFunc
14610 real(RKC) , intent(in) :: lb
14611 real(RKC) , intent(in) :: ub
14612 real(RKC) , intent(in) :: abstol
14613 real(RKC) , intent(in) :: reltol
14614 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14615 real(RKC) , intent(in) , contiguous :: help(:)
14616 real(RKC) , intent(out) :: integral, abserr
14617 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14618 integer(IK) , intent(out) , contiguous :: sindex(:)
14619 integer(IK) , intent(out) :: neval
14620 integer(IK) , intent(out) :: nint
14621 integer(IK) :: err
14622 end function
14623#endif
14624
14625#if RK2_ENABLED
14626 module function QAGP_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14628 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK2
14629#endif
14630 use pm_kind, only: RKC => RK2
14631 procedure(real(RKC)) :: getFunc
14632 real(RKC) , intent(in) :: lb
14633 real(RKC) , intent(in) :: ub
14634 real(RKC) , intent(in) :: abstol
14635 real(RKC) , intent(in) :: reltol
14636 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14637 real(RKC) , intent(in) , contiguous :: help(:)
14638 real(RKC) , intent(out) :: integral, abserr
14639 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14640 integer(IK) , intent(out) , contiguous :: sindex(:)
14641 integer(IK) , intent(out) :: neval
14642 integer(IK) , intent(out) :: nint
14643 integer(IK) :: err
14644 end function
14645#endif
14646
14647#if RK1_ENABLED
14648 module function QAGP_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14650 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK1
14651#endif
14652 use pm_kind, only: RKC => RK1
14653 procedure(real(RKC)) :: getFunc
14654 real(RKC) , intent(in) :: lb
14655 real(RKC) , intent(in) :: ub
14656 real(RKC) , intent(in) :: abstol
14657 real(RKC) , intent(in) :: reltol
14658 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14659 real(RKC) , intent(in) , contiguous :: help(:)
14660 real(RKC) , intent(out) :: integral, abserr
14661 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14662 integer(IK) , intent(out) , contiguous :: sindex(:)
14663 integer(IK) , intent(out) :: neval
14664 integer(IK) , intent(out) :: nint
14665 integer(IK) :: err
14666 end function
14667#endif
14668
14669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14670
14671#if RK5_ENABLED
14672 module function QAGP_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14674 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK5
14675#endif
14676 use pm_kind, only: RKC => RK5
14677 procedure(real(RKC)) :: getFunc
14678 real(RKC) , intent(in) :: lb
14679 type(pinf_type) , intent(in) :: ub
14680 real(RKC) , intent(in) :: abstol
14681 real(RKC) , intent(in) :: reltol
14682 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14683 real(RKC) , intent(in) , contiguous :: help(:)
14684 real(RKC) , intent(out) :: integral, abserr
14685 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14686 integer(IK) , intent(out) , contiguous :: sindex(:)
14687 integer(IK) , intent(out) :: neval
14688 integer(IK) , intent(out) :: nint
14689 integer(IK) :: err
14690 end function
14691#endif
14692
14693#if RK4_ENABLED
14694 module function QAGP_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14696 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK4
14697#endif
14698 use pm_kind, only: RKC => RK4
14699 procedure(real(RKC)) :: getFunc
14700 real(RKC) , intent(in) :: lb
14701 type(pinf_type) , intent(in) :: ub
14702 real(RKC) , intent(in) :: abstol
14703 real(RKC) , intent(in) :: reltol
14704 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14705 real(RKC) , intent(in) , contiguous :: help(:)
14706 real(RKC) , intent(out) :: integral, abserr
14707 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14708 integer(IK) , intent(out) , contiguous :: sindex(:)
14709 integer(IK) , intent(out) :: neval
14710 integer(IK) , intent(out) :: nint
14711 integer(IK) :: err
14712 end function
14713#endif
14714
14715#if RK3_ENABLED
14716 module function QAGP_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14718 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK3
14719#endif
14720 use pm_kind, only: RKC => RK3
14721 procedure(real(RKC)) :: getFunc
14722 real(RKC) , intent(in) :: lb
14723 type(pinf_type) , intent(in) :: ub
14724 real(RKC) , intent(in) :: abstol
14725 real(RKC) , intent(in) :: reltol
14726 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14727 real(RKC) , intent(in) , contiguous :: help(:)
14728 real(RKC) , intent(out) :: integral, abserr
14729 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14730 integer(IK) , intent(out) , contiguous :: sindex(:)
14731 integer(IK) , intent(out) :: neval
14732 integer(IK) , intent(out) :: nint
14733 integer(IK) :: err
14734 end function
14735#endif
14736
14737#if RK2_ENABLED
14738 module function QAGP_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14740 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK2
14741#endif
14742 use pm_kind, only: RKC => RK2
14743 procedure(real(RKC)) :: getFunc
14744 real(RKC) , intent(in) :: lb
14745 type(pinf_type) , intent(in) :: ub
14746 real(RKC) , intent(in) :: abstol
14747 real(RKC) , intent(in) :: reltol
14748 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14749 real(RKC) , intent(in) , contiguous :: help(:)
14750 real(RKC) , intent(out) :: integral, abserr
14751 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14752 integer(IK) , intent(out) , contiguous :: sindex(:)
14753 integer(IK) , intent(out) :: neval
14754 integer(IK) , intent(out) :: nint
14755 integer(IK) :: err
14756 end function
14757#endif
14758
14759#if RK1_ENABLED
14760 module function QAGP_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14762 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK1
14763#endif
14764 use pm_kind, only: RKC => RK1
14765 procedure(real(RKC)) :: getFunc
14766 real(RKC) , intent(in) :: lb
14767 type(pinf_type) , intent(in) :: ub
14768 real(RKC) , intent(in) :: abstol
14769 real(RKC) , intent(in) :: reltol
14770 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14771 real(RKC) , intent(in) , contiguous :: help(:)
14772 real(RKC) , intent(out) :: integral, abserr
14773 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14774 integer(IK) , intent(out) , contiguous :: sindex(:)
14775 integer(IK) , intent(out) :: neval
14776 integer(IK) , intent(out) :: nint
14777 integer(IK) :: err
14778 end function
14779#endif
14780
14781 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14782
14783#if RK5_ENABLED
14784 module function QAGP_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14786 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK5
14787#endif
14788 use pm_kind, only: RKC => RK5
14789 procedure(real(RKC)) :: getFunc
14790 type(ninf_type) , intent(in) :: lb
14791 real(RKC) , intent(in) :: ub
14792 real(RKC) , intent(in) :: abstol
14793 real(RKC) , intent(in) :: reltol
14794 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14795 real(RKC) , intent(in) , contiguous :: help(:)
14796 real(RKC) , intent(out) :: integral, abserr
14797 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14798 integer(IK) , intent(out) , contiguous :: sindex(:)
14799 integer(IK) , intent(out) :: neval
14800 integer(IK) , intent(out) :: nint
14801 integer(IK) :: err
14802 end function
14803#endif
14804
14805#if RK4_ENABLED
14806 module function QAGP_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14808 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK4
14809#endif
14810 use pm_kind, only: RKC => RK4
14811 procedure(real(RKC)) :: getFunc
14812 type(ninf_type) , intent(in) :: lb
14813 real(RKC) , intent(in) :: ub
14814 real(RKC) , intent(in) :: abstol
14815 real(RKC) , intent(in) :: reltol
14816 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14817 real(RKC) , intent(in) , contiguous :: help(:)
14818 real(RKC) , intent(out) :: integral, abserr
14819 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14820 integer(IK) , intent(out) , contiguous :: sindex(:)
14821 integer(IK) , intent(out) :: neval
14822 integer(IK) , intent(out) :: nint
14823 integer(IK) :: err
14824 end function
14825#endif
14826
14827#if RK3_ENABLED
14828 module function QAGP_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14830 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK3
14831#endif
14832 use pm_kind, only: RKC => RK3
14833 procedure(real(RKC)) :: getFunc
14834 type(ninf_type) , intent(in) :: lb
14835 real(RKC) , intent(in) :: ub
14836 real(RKC) , intent(in) :: abstol
14837 real(RKC) , intent(in) :: reltol
14838 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14839 real(RKC) , intent(in) , contiguous :: help(:)
14840 real(RKC) , intent(out) :: integral, abserr
14841 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14842 integer(IK) , intent(out) , contiguous :: sindex(:)
14843 integer(IK) , intent(out) :: neval
14844 integer(IK) , intent(out) :: nint
14845 integer(IK) :: err
14846 end function
14847#endif
14848
14849#if RK2_ENABLED
14850 module function QAGP_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14852 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK2
14853#endif
14854 use pm_kind, only: RKC => RK2
14855 procedure(real(RKC)) :: getFunc
14856 type(ninf_type) , intent(in) :: lb
14857 real(RKC) , intent(in) :: ub
14858 real(RKC) , intent(in) :: abstol
14859 real(RKC) , intent(in) :: reltol
14860 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14861 real(RKC) , intent(in) , contiguous :: help(:)
14862 real(RKC) , intent(out) :: integral, abserr
14863 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14864 integer(IK) , intent(out) , contiguous :: sindex(:)
14865 integer(IK) , intent(out) :: neval
14866 integer(IK) , intent(out) :: nint
14867 integer(IK) :: err
14868 end function
14869#endif
14870
14871#if RK1_ENABLED
14872 module function QAGP_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14874 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK1
14875#endif
14876 use pm_kind, only: RKC => RK1
14877 procedure(real(RKC)) :: getFunc
14878 type(ninf_type) , intent(in) :: lb
14879 real(RKC) , intent(in) :: ub
14880 real(RKC) , intent(in) :: abstol
14881 real(RKC) , intent(in) :: reltol
14882 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14883 real(RKC) , intent(in) , contiguous :: help(:)
14884 real(RKC) , intent(out) :: integral, abserr
14885 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14886 integer(IK) , intent(out) , contiguous :: sindex(:)
14887 integer(IK) , intent(out) :: neval
14888 integer(IK) , intent(out) :: nint
14889 integer(IK) :: err
14890 end function
14891#endif
14892
14893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14894
14895#if RK5_ENABLED
14896 module function QAGP_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14898 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK5
14899#endif
14900 use pm_kind, only: RKC => RK5
14901 procedure(real(RKC)) :: getFunc
14902 type(ninf_type) , intent(in) :: lb
14903 type(pinf_type) , intent(in) :: ub
14904 real(RKC) , intent(in) :: abstol
14905 real(RKC) , intent(in) :: reltol
14906 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14907 real(RKC) , intent(in) , contiguous :: help(:)
14908 real(RKC) , intent(out) :: integral, abserr
14909 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14910 integer(IK) , intent(out) , contiguous :: sindex(:)
14911 integer(IK) , intent(out) :: neval
14912 integer(IK) , intent(out) :: nint
14913 integer(IK) :: err
14914 end function
14915#endif
14916
14917#if RK4_ENABLED
14918 module function QAGP_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK4
14921#endif
14922 use pm_kind, only: RKC => RK4
14923 procedure(real(RKC)) :: getFunc
14924 type(ninf_type) , intent(in) :: lb
14925 type(pinf_type) , intent(in) :: ub
14926 real(RKC) , intent(in) :: abstol
14927 real(RKC) , intent(in) :: reltol
14928 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14929 real(RKC) , intent(in) , contiguous :: help(:)
14930 real(RKC) , intent(out) :: integral, abserr
14931 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14932 integer(IK) , intent(out) , contiguous :: sindex(:)
14933 integer(IK) , intent(out) :: neval
14934 integer(IK) , intent(out) :: nint
14935 integer(IK) :: err
14936 end function
14937#endif
14938
14939#if RK3_ENABLED
14940 module function QAGP_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14942 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK3
14943#endif
14944 use pm_kind, only: RKC => RK3
14945 procedure(real(RKC)) :: getFunc
14946 type(ninf_type) , intent(in) :: lb
14947 type(pinf_type) , intent(in) :: ub
14948 real(RKC) , intent(in) :: abstol
14949 real(RKC) , intent(in) :: reltol
14950 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14951 real(RKC) , intent(in) , contiguous :: help(:)
14952 real(RKC) , intent(out) :: integral, abserr
14953 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14954 integer(IK) , intent(out) , contiguous :: sindex(:)
14955 integer(IK) , intent(out) :: neval
14956 integer(IK) , intent(out) :: nint
14957 integer(IK) :: err
14958 end function
14959#endif
14960
14961#if RK2_ENABLED
14962 module function QAGP_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK2
14965#endif
14966 use pm_kind, only: RKC => RK2
14967 procedure(real(RKC)) :: getFunc
14968 type(ninf_type) , intent(in) :: lb
14969 type(pinf_type) , intent(in) :: ub
14970 real(RKC) , intent(in) :: abstol
14971 real(RKC) , intent(in) :: reltol
14972 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14973 real(RKC) , intent(in) , contiguous :: help(:)
14974 real(RKC) , intent(out) :: integral, abserr
14975 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14976 integer(IK) , intent(out) , contiguous :: sindex(:)
14977 integer(IK) , intent(out) :: neval
14978 integer(IK) , intent(out) :: nint
14979 integer(IK) :: err
14980 end function
14981#endif
14982
14983#if RK1_ENABLED
14984 module function QAGP_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14986 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK1
14987#endif
14988 use pm_kind, only: RKC => RK1
14989 procedure(real(RKC)) :: getFunc
14990 type(ninf_type) , intent(in) :: lb
14991 type(pinf_type) , intent(in) :: ub
14992 real(RKC) , intent(in) :: abstol
14993 real(RKC) , intent(in) :: reltol
14994 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14995 real(RKC) , intent(in) , contiguous :: help(:)
14996 real(RKC) , intent(out) :: integral, abserr
14997 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14998 integer(IK) , intent(out) , contiguous :: sindex(:)
14999 integer(IK) , intent(out) :: neval
15000 integer(IK) , intent(out) :: nint
15001 integer(IK) :: err
15002 end function
15003#endif
15004
15005 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15006
15007 end interface
15008
15009!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15010
15011 ! QAWC FF
15012
15013 interface getQuadErr
15014
15015 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15016
15017#if RK5_ENABLED
15018 module function QAWC_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15020 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK5
15021#endif
15022 use pm_kind, only: RKC => RK5
15023 procedure(real(RKC)) :: getFunc
15024 real(RKC) , intent(in) :: lb
15025 real(RKC) , intent(in) :: ub
15026 real(RKC) , intent(in) :: abstol
15027 real(RKC) , intent(in) :: reltol
15028 type(GK15_type) , intent(in) :: qrule
15029 type(wcauchy_type) , intent(in) :: help
15030 real(RKC) , intent(out) :: integral, abserr
15031 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15032 integer(IK) , intent(out) , contiguous :: sindex(:)
15033 integer(IK) , intent(out) :: neval
15034 integer(IK) , intent(out) :: nint
15035 integer(IK) :: err
15036 end function
15037#endif
15038
15039#if RK4_ENABLED
15040 module function QAWC_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15042 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK4
15043#endif
15044 use pm_kind, only: RKC => RK4
15045 procedure(real(RKC)) :: getFunc
15046 real(RKC) , intent(in) :: lb
15047 real(RKC) , intent(in) :: ub
15048 real(RKC) , intent(in) :: abstol
15049 real(RKC) , intent(in) :: reltol
15050 type(GK15_type) , intent(in) :: qrule
15051 type(wcauchy_type) , intent(in) :: help
15052 real(RKC) , intent(out) :: integral, abserr
15053 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15054 integer(IK) , intent(out) , contiguous :: sindex(:)
15055 integer(IK) , intent(out) :: neval
15056 integer(IK) , intent(out) :: nint
15057 integer(IK) :: err
15058 end function
15059#endif
15060
15061#if RK3_ENABLED
15062 module function QAWC_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15064 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK3
15065#endif
15066 use pm_kind, only: RKC => RK3
15067 procedure(real(RKC)) :: getFunc
15068 real(RKC) , intent(in) :: lb
15069 real(RKC) , intent(in) :: ub
15070 real(RKC) , intent(in) :: abstol
15071 real(RKC) , intent(in) :: reltol
15072 type(GK15_type) , intent(in) :: qrule
15073 type(wcauchy_type) , intent(in) :: help
15074 real(RKC) , intent(out) :: integral, abserr
15075 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15076 integer(IK) , intent(out) , contiguous :: sindex(:)
15077 integer(IK) , intent(out) :: neval
15078 integer(IK) , intent(out) :: nint
15079 integer(IK) :: err
15080 end function
15081#endif
15082
15083#if RK2_ENABLED
15084 module function QAWC_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15086 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK2
15087#endif
15088 use pm_kind, only: RKC => RK2
15089 procedure(real(RKC)) :: getFunc
15090 real(RKC) , intent(in) :: lb
15091 real(RKC) , intent(in) :: ub
15092 real(RKC) , intent(in) :: abstol
15093 real(RKC) , intent(in) :: reltol
15094 type(GK15_type) , intent(in) :: qrule
15095 type(wcauchy_type) , intent(in) :: help
15096 real(RKC) , intent(out) :: integral, abserr
15097 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15098 integer(IK) , intent(out) , contiguous :: sindex(:)
15099 integer(IK) , intent(out) :: neval
15100 integer(IK) , intent(out) :: nint
15101 integer(IK) :: err
15102 end function
15103#endif
15104
15105#if RK1_ENABLED
15106 module function QAWC_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15108 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK1
15109#endif
15110 use pm_kind, only: RKC => RK1
15111 procedure(real(RKC)) :: getFunc
15112 real(RKC) , intent(in) :: lb
15113 real(RKC) , intent(in) :: ub
15114 real(RKC) , intent(in) :: abstol
15115 real(RKC) , intent(in) :: reltol
15116 type(GK15_type) , intent(in) :: qrule
15117 type(wcauchy_type) , intent(in) :: help
15118 real(RKC) , intent(out) :: integral, abserr
15119 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15120 integer(IK) , intent(out) , contiguous :: sindex(:)
15121 integer(IK) , intent(out) :: neval
15122 integer(IK) , intent(out) :: nint
15123 integer(IK) :: err
15124 end function
15125#endif
15126
15127 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15128
15129#if RK5_ENABLED
15130 module function QAWC_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15132 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK5
15133#endif
15134 use pm_kind, only: RKC => RK5
15135 procedure(real(RKC)) :: getFunc
15136 real(RKC) , intent(in) :: lb
15137 real(RKC) , intent(in) :: ub
15138 real(RKC) , intent(in) :: abstol
15139 real(RKC) , intent(in) :: reltol
15140 type(GK21_type) , intent(in) :: qrule
15141 type(wcauchy_type) , intent(in) :: help
15142 real(RKC) , intent(out) :: integral, abserr
15143 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15144 integer(IK) , intent(out) , contiguous :: sindex(:)
15145 integer(IK) , intent(out) :: neval
15146 integer(IK) , intent(out) :: nint
15147 integer(IK) :: err
15148 end function
15149#endif
15150
15151#if RK4_ENABLED
15152 module function QAWC_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15154 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK4
15155#endif
15156 use pm_kind, only: RKC => RK4
15157 procedure(real(RKC)) :: getFunc
15158 real(RKC) , intent(in) :: lb
15159 real(RKC) , intent(in) :: ub
15160 real(RKC) , intent(in) :: abstol
15161 real(RKC) , intent(in) :: reltol
15162 type(GK21_type) , intent(in) :: qrule
15163 type(wcauchy_type) , intent(in) :: help
15164 real(RKC) , intent(out) :: integral, abserr
15165 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15166 integer(IK) , intent(out) , contiguous :: sindex(:)
15167 integer(IK) , intent(out) :: neval
15168 integer(IK) , intent(out) :: nint
15169 integer(IK) :: err
15170 end function
15171#endif
15172
15173#if RK3_ENABLED
15174 module function QAWC_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15176 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK3
15177#endif
15178 use pm_kind, only: RKC => RK3
15179 procedure(real(RKC)) :: getFunc
15180 real(RKC) , intent(in) :: lb
15181 real(RKC) , intent(in) :: ub
15182 real(RKC) , intent(in) :: abstol
15183 real(RKC) , intent(in) :: reltol
15184 type(GK21_type) , intent(in) :: qrule
15185 type(wcauchy_type) , intent(in) :: help
15186 real(RKC) , intent(out) :: integral, abserr
15187 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15188 integer(IK) , intent(out) , contiguous :: sindex(:)
15189 integer(IK) , intent(out) :: neval
15190 integer(IK) , intent(out) :: nint
15191 integer(IK) :: err
15192 end function
15193#endif
15194
15195#if RK2_ENABLED
15196 module function QAWC_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15198 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK2
15199#endif
15200 use pm_kind, only: RKC => RK2
15201 procedure(real(RKC)) :: getFunc
15202 real(RKC) , intent(in) :: lb
15203 real(RKC) , intent(in) :: ub
15204 real(RKC) , intent(in) :: abstol
15205 real(RKC) , intent(in) :: reltol
15206 type(GK21_type) , intent(in) :: qrule
15207 type(wcauchy_type) , intent(in) :: help
15208 real(RKC) , intent(out) :: integral, abserr
15209 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15210 integer(IK) , intent(out) , contiguous :: sindex(:)
15211 integer(IK) , intent(out) :: neval
15212 integer(IK) , intent(out) :: nint
15213 integer(IK) :: err
15214 end function
15215#endif
15216
15217#if RK1_ENABLED
15218 module function QAWC_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15220 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK1
15221#endif
15222 use pm_kind, only: RKC => RK1
15223 procedure(real(RKC)) :: getFunc
15224 real(RKC) , intent(in) :: lb
15225 real(RKC) , intent(in) :: ub
15226 real(RKC) , intent(in) :: abstol
15227 real(RKC) , intent(in) :: reltol
15228 type(GK21_type) , intent(in) :: qrule
15229 type(wcauchy_type) , intent(in) :: help
15230 real(RKC) , intent(out) :: integral, abserr
15231 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15232 integer(IK) , intent(out) , contiguous :: sindex(:)
15233 integer(IK) , intent(out) :: neval
15234 integer(IK) , intent(out) :: nint
15235 integer(IK) :: err
15236 end function
15237#endif
15238
15239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15240
15241#if RK5_ENABLED
15242 module function QAWC_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15244 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK5
15245#endif
15246 use pm_kind, only: RKC => RK5
15247 procedure(real(RKC)) :: getFunc
15248 real(RKC) , intent(in) :: lb
15249 real(RKC) , intent(in) :: ub
15250 real(RKC) , intent(in) :: abstol
15251 real(RKC) , intent(in) :: reltol
15252 type(GK31_type) , intent(in) :: qrule
15253 type(wcauchy_type) , intent(in) :: help
15254 real(RKC) , intent(out) :: integral, abserr
15255 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15256 integer(IK) , intent(out) , contiguous :: sindex(:)
15257 integer(IK) , intent(out) :: neval
15258 integer(IK) , intent(out) :: nint
15259 integer(IK) :: err
15260 end function
15261#endif
15262
15263#if RK4_ENABLED
15264 module function QAWC_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15266 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK4
15267#endif
15268 use pm_kind, only: RKC => RK4
15269 procedure(real(RKC)) :: getFunc
15270 real(RKC) , intent(in) :: lb
15271 real(RKC) , intent(in) :: ub
15272 real(RKC) , intent(in) :: abstol
15273 real(RKC) , intent(in) :: reltol
15274 type(GK31_type) , intent(in) :: qrule
15275 type(wcauchy_type) , intent(in) :: help
15276 real(RKC) , intent(out) :: integral, abserr
15277 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15278 integer(IK) , intent(out) , contiguous :: sindex(:)
15279 integer(IK) , intent(out) :: neval
15280 integer(IK) , intent(out) :: nint
15281 integer(IK) :: err
15282 end function
15283#endif
15284
15285#if RK3_ENABLED
15286 module function QAWC_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15288 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK3
15289#endif
15290 use pm_kind, only: RKC => RK3
15291 procedure(real(RKC)) :: getFunc
15292 real(RKC) , intent(in) :: lb
15293 real(RKC) , intent(in) :: ub
15294 real(RKC) , intent(in) :: abstol
15295 real(RKC) , intent(in) :: reltol
15296 type(GK31_type) , intent(in) :: qrule
15297 type(wcauchy_type) , intent(in) :: help
15298 real(RKC) , intent(out) :: integral, abserr
15299 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15300 integer(IK) , intent(out) , contiguous :: sindex(:)
15301 integer(IK) , intent(out) :: neval
15302 integer(IK) , intent(out) :: nint
15303 integer(IK) :: err
15304 end function
15305#endif
15306
15307#if RK2_ENABLED
15308 module function QAWC_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15310 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK2
15311#endif
15312 use pm_kind, only: RKC => RK2
15313 procedure(real(RKC)) :: getFunc
15314 real(RKC) , intent(in) :: lb
15315 real(RKC) , intent(in) :: ub
15316 real(RKC) , intent(in) :: abstol
15317 real(RKC) , intent(in) :: reltol
15318 type(GK31_type) , intent(in) :: qrule
15319 type(wcauchy_type) , intent(in) :: help
15320 real(RKC) , intent(out) :: integral, abserr
15321 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15322 integer(IK) , intent(out) , contiguous :: sindex(:)
15323 integer(IK) , intent(out) :: neval
15324 integer(IK) , intent(out) :: nint
15325 integer(IK) :: err
15326 end function
15327#endif
15328
15329#if RK1_ENABLED
15330 module function QAWC_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15332 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK1
15333#endif
15334 use pm_kind, only: RKC => RK1
15335 procedure(real(RKC)) :: getFunc
15336 real(RKC) , intent(in) :: lb
15337 real(RKC) , intent(in) :: ub
15338 real(RKC) , intent(in) :: abstol
15339 real(RKC) , intent(in) :: reltol
15340 type(GK31_type) , intent(in) :: qrule
15341 type(wcauchy_type) , intent(in) :: help
15342 real(RKC) , intent(out) :: integral, abserr
15343 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15344 integer(IK) , intent(out) , contiguous :: sindex(:)
15345 integer(IK) , intent(out) :: neval
15346 integer(IK) , intent(out) :: nint
15347 integer(IK) :: err
15348 end function
15349#endif
15350
15351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15352
15353#if RK5_ENABLED
15354 module function QAWC_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15356 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK5
15357#endif
15358 use pm_kind, only: RKC => RK5
15359 procedure(real(RKC)) :: getFunc
15360 real(RKC) , intent(in) :: lb
15361 real(RKC) , intent(in) :: ub
15362 real(RKC) , intent(in) :: abstol
15363 real(RKC) , intent(in) :: reltol
15364 type(GK41_type) , intent(in) :: qrule
15365 type(wcauchy_type) , intent(in) :: help
15366 real(RKC) , intent(out) :: integral, abserr
15367 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15368 integer(IK) , intent(out) , contiguous :: sindex(:)
15369 integer(IK) , intent(out) :: neval
15370 integer(IK) , intent(out) :: nint
15371 integer(IK) :: err
15372 end function
15373#endif
15374
15375#if RK4_ENABLED
15376 module function QAWC_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15378 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK4
15379#endif
15380 use pm_kind, only: RKC => RK4
15381 procedure(real(RKC)) :: getFunc
15382 real(RKC) , intent(in) :: lb
15383 real(RKC) , intent(in) :: ub
15384 real(RKC) , intent(in) :: abstol
15385 real(RKC) , intent(in) :: reltol
15386 type(GK41_type) , intent(in) :: qrule
15387 type(wcauchy_type) , intent(in) :: help
15388 real(RKC) , intent(out) :: integral, abserr
15389 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15390 integer(IK) , intent(out) , contiguous :: sindex(:)
15391 integer(IK) , intent(out) :: neval
15392 integer(IK) , intent(out) :: nint
15393 integer(IK) :: err
15394 end function
15395#endif
15396
15397#if RK3_ENABLED
15398 module function QAWC_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15400 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK3
15401#endif
15402 use pm_kind, only: RKC => RK3
15403 procedure(real(RKC)) :: getFunc
15404 real(RKC) , intent(in) :: lb
15405 real(RKC) , intent(in) :: ub
15406 real(RKC) , intent(in) :: abstol
15407 real(RKC) , intent(in) :: reltol
15408 type(GK41_type) , intent(in) :: qrule
15409 type(wcauchy_type) , intent(in) :: help
15410 real(RKC) , intent(out) :: integral, abserr
15411 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15412 integer(IK) , intent(out) , contiguous :: sindex(:)
15413 integer(IK) , intent(out) :: neval
15414 integer(IK) , intent(out) :: nint
15415 integer(IK) :: err
15416 end function
15417#endif
15418
15419#if RK2_ENABLED
15420 module function QAWC_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15422 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK2
15423#endif
15424 use pm_kind, only: RKC => RK2
15425 procedure(real(RKC)) :: getFunc
15426 real(RKC) , intent(in) :: lb
15427 real(RKC) , intent(in) :: ub
15428 real(RKC) , intent(in) :: abstol
15429 real(RKC) , intent(in) :: reltol
15430 type(GK41_type) , intent(in) :: qrule
15431 type(wcauchy_type) , intent(in) :: help
15432 real(RKC) , intent(out) :: integral, abserr
15433 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15434 integer(IK) , intent(out) , contiguous :: sindex(:)
15435 integer(IK) , intent(out) :: neval
15436 integer(IK) , intent(out) :: nint
15437 integer(IK) :: err
15438 end function
15439#endif
15440
15441#if RK1_ENABLED
15442 module function QAWC_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15444 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK1
15445#endif
15446 use pm_kind, only: RKC => RK1
15447 procedure(real(RKC)) :: getFunc
15448 real(RKC) , intent(in) :: lb
15449 real(RKC) , intent(in) :: ub
15450 real(RKC) , intent(in) :: abstol
15451 real(RKC) , intent(in) :: reltol
15452 type(GK41_type) , intent(in) :: qrule
15453 type(wcauchy_type) , intent(in) :: help
15454 real(RKC) , intent(out) :: integral, abserr
15455 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15456 integer(IK) , intent(out) , contiguous :: sindex(:)
15457 integer(IK) , intent(out) :: neval
15458 integer(IK) , intent(out) :: nint
15459 integer(IK) :: err
15460 end function
15461#endif
15462
15463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15464
15465#if RK5_ENABLED
15466 module function QAWC_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15468 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK5
15469#endif
15470 use pm_kind, only: RKC => RK5
15471 procedure(real(RKC)) :: getFunc
15472 real(RKC) , intent(in) :: lb
15473 real(RKC) , intent(in) :: ub
15474 real(RKC) , intent(in) :: abstol
15475 real(RKC) , intent(in) :: reltol
15476 type(GK51_type) , intent(in) :: qrule
15477 type(wcauchy_type) , intent(in) :: help
15478 real(RKC) , intent(out) :: integral, abserr
15479 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15480 integer(IK) , intent(out) , contiguous :: sindex(:)
15481 integer(IK) , intent(out) :: neval
15482 integer(IK) , intent(out) :: nint
15483 integer(IK) :: err
15484 end function
15485#endif
15486
15487#if RK4_ENABLED
15488 module function QAWC_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15490 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK4
15491#endif
15492 use pm_kind, only: RKC => RK4
15493 procedure(real(RKC)) :: getFunc
15494 real(RKC) , intent(in) :: lb
15495 real(RKC) , intent(in) :: ub
15496 real(RKC) , intent(in) :: abstol
15497 real(RKC) , intent(in) :: reltol
15498 type(GK51_type) , intent(in) :: qrule
15499 type(wcauchy_type) , intent(in) :: help
15500 real(RKC) , intent(out) :: integral, abserr
15501 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15502 integer(IK) , intent(out) , contiguous :: sindex(:)
15503 integer(IK) , intent(out) :: neval
15504 integer(IK) , intent(out) :: nint
15505 integer(IK) :: err
15506 end function
15507#endif
15508
15509#if RK3_ENABLED
15510 module function QAWC_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15512 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK3
15513#endif
15514 use pm_kind, only: RKC => RK3
15515 procedure(real(RKC)) :: getFunc
15516 real(RKC) , intent(in) :: lb
15517 real(RKC) , intent(in) :: ub
15518 real(RKC) , intent(in) :: abstol
15519 real(RKC) , intent(in) :: reltol
15520 type(GK51_type) , intent(in) :: qrule
15521 type(wcauchy_type) , intent(in) :: help
15522 real(RKC) , intent(out) :: integral, abserr
15523 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15524 integer(IK) , intent(out) , contiguous :: sindex(:)
15525 integer(IK) , intent(out) :: neval
15526 integer(IK) , intent(out) :: nint
15527 integer(IK) :: err
15528 end function
15529#endif
15530
15531#if RK2_ENABLED
15532 module function QAWC_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15534 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK2
15535#endif
15536 use pm_kind, only: RKC => RK2
15537 procedure(real(RKC)) :: getFunc
15538 real(RKC) , intent(in) :: lb
15539 real(RKC) , intent(in) :: ub
15540 real(RKC) , intent(in) :: abstol
15541 real(RKC) , intent(in) :: reltol
15542 type(GK51_type) , intent(in) :: qrule
15543 type(wcauchy_type) , intent(in) :: help
15544 real(RKC) , intent(out) :: integral, abserr
15545 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15546 integer(IK) , intent(out) , contiguous :: sindex(:)
15547 integer(IK) , intent(out) :: neval
15548 integer(IK) , intent(out) :: nint
15549 integer(IK) :: err
15550 end function
15551#endif
15552
15553#if RK1_ENABLED
15554 module function QAWC_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15556 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK1
15557#endif
15558 use pm_kind, only: RKC => RK1
15559 procedure(real(RKC)) :: getFunc
15560 real(RKC) , intent(in) :: lb
15561 real(RKC) , intent(in) :: ub
15562 real(RKC) , intent(in) :: abstol
15563 real(RKC) , intent(in) :: reltol
15564 type(GK51_type) , intent(in) :: qrule
15565 type(wcauchy_type) , intent(in) :: help
15566 real(RKC) , intent(out) :: integral, abserr
15567 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15568 integer(IK) , intent(out) , contiguous :: sindex(:)
15569 integer(IK) , intent(out) :: neval
15570 integer(IK) , intent(out) :: nint
15571 integer(IK) :: err
15572 end function
15573#endif
15574
15575 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15576
15577#if RK5_ENABLED
15578 module function QAWC_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15580 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK5
15581#endif
15582 use pm_kind, only: RKC => RK5
15583 procedure(real(RKC)) :: getFunc
15584 real(RKC) , intent(in) :: lb
15585 real(RKC) , intent(in) :: ub
15586 real(RKC) , intent(in) :: abstol
15587 real(RKC) , intent(in) :: reltol
15588 type(GK61_type) , intent(in) :: qrule
15589 type(wcauchy_type) , intent(in) :: help
15590 real(RKC) , intent(out) :: integral, abserr
15591 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15592 integer(IK) , intent(out) , contiguous :: sindex(:)
15593 integer(IK) , intent(out) :: neval
15594 integer(IK) , intent(out) :: nint
15595 integer(IK) :: err
15596 end function
15597#endif
15598
15599#if RK4_ENABLED
15600 module function QAWC_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15602 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK4
15603#endif
15604 use pm_kind, only: RKC => RK4
15605 procedure(real(RKC)) :: getFunc
15606 real(RKC) , intent(in) :: lb
15607 real(RKC) , intent(in) :: ub
15608 real(RKC) , intent(in) :: abstol
15609 real(RKC) , intent(in) :: reltol
15610 type(GK61_type) , intent(in) :: qrule
15611 type(wcauchy_type) , intent(in) :: help
15612 real(RKC) , intent(out) :: integral, abserr
15613 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15614 integer(IK) , intent(out) , contiguous :: sindex(:)
15615 integer(IK) , intent(out) :: neval
15616 integer(IK) , intent(out) :: nint
15617 integer(IK) :: err
15618 end function
15619#endif
15620
15621#if RK3_ENABLED
15622 module function QAWC_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15624 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK3
15625#endif
15626 use pm_kind, only: RKC => RK3
15627 procedure(real(RKC)) :: getFunc
15628 real(RKC) , intent(in) :: lb
15629 real(RKC) , intent(in) :: ub
15630 real(RKC) , intent(in) :: abstol
15631 real(RKC) , intent(in) :: reltol
15632 type(GK61_type) , intent(in) :: qrule
15633 type(wcauchy_type) , intent(in) :: help
15634 real(RKC) , intent(out) :: integral, abserr
15635 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15636 integer(IK) , intent(out) , contiguous :: sindex(:)
15637 integer(IK) , intent(out) :: neval
15638 integer(IK) , intent(out) :: nint
15639 integer(IK) :: err
15640 end function
15641#endif
15642
15643#if RK2_ENABLED
15644 module function QAWC_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15646 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK2
15647#endif
15648 use pm_kind, only: RKC => RK2
15649 procedure(real(RKC)) :: getFunc
15650 real(RKC) , intent(in) :: lb
15651 real(RKC) , intent(in) :: ub
15652 real(RKC) , intent(in) :: abstol
15653 real(RKC) , intent(in) :: reltol
15654 type(GK61_type) , intent(in) :: qrule
15655 type(wcauchy_type) , intent(in) :: help
15656 real(RKC) , intent(out) :: integral, abserr
15657 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15658 integer(IK) , intent(out) , contiguous :: sindex(:)
15659 integer(IK) , intent(out) :: neval
15660 integer(IK) , intent(out) :: nint
15661 integer(IK) :: err
15662 end function
15663#endif
15664
15665#if RK1_ENABLED
15666 module function QAWC_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15668 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK1
15669#endif
15670 use pm_kind, only: RKC => RK1
15671 procedure(real(RKC)) :: getFunc
15672 real(RKC) , intent(in) :: lb
15673 real(RKC) , intent(in) :: ub
15674 real(RKC) , intent(in) :: abstol
15675 real(RKC) , intent(in) :: reltol
15676 type(GK61_type) , intent(in) :: qrule
15677 type(wcauchy_type) , intent(in) :: help
15678 real(RKC) , intent(out) :: integral, abserr
15679 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15680 integer(IK) , intent(out) , contiguous :: sindex(:)
15681 integer(IK) , intent(out) :: neval
15682 integer(IK) , intent(out) :: nint
15683 integer(IK) :: err
15684 end function
15685#endif
15686
15687 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15688
15689#if RK5_ENABLED
15690 module function QAWC_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15692 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK5
15693#endif
15694 use pm_kind, only: RKC => RK5
15695 procedure(real(RKC)) :: getFunc
15696 real(RKC) , intent(in) :: lb
15697 real(RKC) , intent(in) :: ub
15698 real(RKC) , intent(in) :: abstol
15699 real(RKC) , intent(in) :: reltol
15700 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15701 type(wcauchy_type) , intent(in) :: help
15702 real(RKC) , intent(out) :: integral, abserr
15703 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15704 integer(IK) , intent(out) , contiguous :: sindex(:)
15705 integer(IK) , intent(out) :: neval
15706 integer(IK) , intent(out) :: nint
15707 integer(IK) :: err
15708 end function
15709#endif
15710
15711#if RK4_ENABLED
15712 module function QAWC_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15714 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK4
15715#endif
15716 use pm_kind, only: RKC => RK4
15717 procedure(real(RKC)) :: getFunc
15718 real(RKC) , intent(in) :: lb
15719 real(RKC) , intent(in) :: ub
15720 real(RKC) , intent(in) :: abstol
15721 real(RKC) , intent(in) :: reltol
15722 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15723 type(wcauchy_type) , intent(in) :: help
15724 real(RKC) , intent(out) :: integral, abserr
15725 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15726 integer(IK) , intent(out) , contiguous :: sindex(:)
15727 integer(IK) , intent(out) :: neval
15728 integer(IK) , intent(out) :: nint
15729 integer(IK) :: err
15730 end function
15731#endif
15732
15733#if RK3_ENABLED
15734 module function QAWC_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15736 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK3
15737#endif
15738 use pm_kind, only: RKC => RK3
15739 procedure(real(RKC)) :: getFunc
15740 real(RKC) , intent(in) :: lb
15741 real(RKC) , intent(in) :: ub
15742 real(RKC) , intent(in) :: abstol
15743 real(RKC) , intent(in) :: reltol
15744 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15745 type(wcauchy_type) , intent(in) :: help
15746 real(RKC) , intent(out) :: integral, abserr
15747 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15748 integer(IK) , intent(out) , contiguous :: sindex(:)
15749 integer(IK) , intent(out) :: neval
15750 integer(IK) , intent(out) :: nint
15751 integer(IK) :: err
15752 end function
15753#endif
15754
15755#if RK2_ENABLED
15756 module function QAWC_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15758 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK2
15759#endif
15760 use pm_kind, only: RKC => RK2
15761 procedure(real(RKC)) :: getFunc
15762 real(RKC) , intent(in) :: lb
15763 real(RKC) , intent(in) :: ub
15764 real(RKC) , intent(in) :: abstol
15765 real(RKC) , intent(in) :: reltol
15766 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15767 type(wcauchy_type) , intent(in) :: help
15768 real(RKC) , intent(out) :: integral, abserr
15769 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15770 integer(IK) , intent(out) , contiguous :: sindex(:)
15771 integer(IK) , intent(out) :: neval
15772 integer(IK) , intent(out) :: nint
15773 integer(IK) :: err
15774 end function
15775#endif
15776
15777#if RK1_ENABLED
15778 module function QAWC_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15780 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK1
15781#endif
15782 use pm_kind, only: RKC => RK1
15783 procedure(real(RKC)) :: getFunc
15784 real(RKC) , intent(in) :: lb
15785 real(RKC) , intent(in) :: ub
15786 real(RKC) , intent(in) :: abstol
15787 real(RKC) , intent(in) :: reltol
15788 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15789 type(wcauchy_type) , intent(in) :: help
15790 real(RKC) , intent(out) :: integral, abserr
15791 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15792 integer(IK) , intent(out) , contiguous :: sindex(:)
15793 integer(IK) , intent(out) :: neval
15794 integer(IK) , intent(out) :: nint
15795 integer(IK) :: err
15796 end function
15797#endif
15798
15799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15800
15801 end interface
15802
15803 ! QAWC FI
15804
15805 interface getQuadErr
15806
15807 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15808
15809#if RK5_ENABLED
15810 module function QAWC_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15812 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK5
15813#endif
15814 use pm_kind, only: RKC => RK5
15815 procedure(real(RKC)) :: getFunc
15816 real(RKC) , intent(in) :: lb
15817 type(pinf_type) , intent(in) :: ub
15818 real(RKC) , intent(in) :: abstol
15819 real(RKC) , intent(in) :: reltol
15820 type(GK15_type) , intent(in) :: qrule
15821 type(wcauchy_type) , intent(in) :: help
15822 real(RKC) , intent(out) :: integral, abserr
15823 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15824 integer(IK) , intent(out) , contiguous :: sindex(:)
15825 integer(IK) , intent(out) :: neval
15826 integer(IK) , intent(out) :: nint
15827 integer(IK) :: err
15828 end function
15829#endif
15830
15831#if RK4_ENABLED
15832 module function QAWC_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15834 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK4
15835#endif
15836 use pm_kind, only: RKC => RK4
15837 procedure(real(RKC)) :: getFunc
15838 real(RKC) , intent(in) :: lb
15839 type(pinf_type) , intent(in) :: ub
15840 real(RKC) , intent(in) :: abstol
15841 real(RKC) , intent(in) :: reltol
15842 type(GK15_type) , intent(in) :: qrule
15843 type(wcauchy_type) , intent(in) :: help
15844 real(RKC) , intent(out) :: integral, abserr
15845 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15846 integer(IK) , intent(out) , contiguous :: sindex(:)
15847 integer(IK) , intent(out) :: neval
15848 integer(IK) , intent(out) :: nint
15849 integer(IK) :: err
15850 end function
15851#endif
15852
15853#if RK3_ENABLED
15854 module function QAWC_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15856 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK3
15857#endif
15858 use pm_kind, only: RKC => RK3
15859 procedure(real(RKC)) :: getFunc
15860 real(RKC) , intent(in) :: lb
15861 type(pinf_type) , intent(in) :: ub
15862 real(RKC) , intent(in) :: abstol
15863 real(RKC) , intent(in) :: reltol
15864 type(GK15_type) , intent(in) :: qrule
15865 type(wcauchy_type) , intent(in) :: help
15866 real(RKC) , intent(out) :: integral, abserr
15867 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15868 integer(IK) , intent(out) , contiguous :: sindex(:)
15869 integer(IK) , intent(out) :: neval
15870 integer(IK) , intent(out) :: nint
15871 integer(IK) :: err
15872 end function
15873#endif
15874
15875#if RK2_ENABLED
15876 module function QAWC_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15878 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK2
15879#endif
15880 use pm_kind, only: RKC => RK2
15881 procedure(real(RKC)) :: getFunc
15882 real(RKC) , intent(in) :: lb
15883 type(pinf_type) , intent(in) :: ub
15884 real(RKC) , intent(in) :: abstol
15885 real(RKC) , intent(in) :: reltol
15886 type(GK15_type) , intent(in) :: qrule
15887 type(wcauchy_type) , intent(in) :: help
15888 real(RKC) , intent(out) :: integral, abserr
15889 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15890 integer(IK) , intent(out) , contiguous :: sindex(:)
15891 integer(IK) , intent(out) :: neval
15892 integer(IK) , intent(out) :: nint
15893 integer(IK) :: err
15894 end function
15895#endif
15896
15897#if RK1_ENABLED
15898 module function QAWC_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15900 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK1
15901#endif
15902 use pm_kind, only: RKC => RK1
15903 procedure(real(RKC)) :: getFunc
15904 real(RKC) , intent(in) :: lb
15905 type(pinf_type) , intent(in) :: ub
15906 real(RKC) , intent(in) :: abstol
15907 real(RKC) , intent(in) :: reltol
15908 type(GK15_type) , intent(in) :: qrule
15909 type(wcauchy_type) , intent(in) :: help
15910 real(RKC) , intent(out) :: integral, abserr
15911 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15912 integer(IK) , intent(out) , contiguous :: sindex(:)
15913 integer(IK) , intent(out) :: neval
15914 integer(IK) , intent(out) :: nint
15915 integer(IK) :: err
15916 end function
15917#endif
15918
15919 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15920
15921#if RK5_ENABLED
15922 module function QAWC_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15924 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK5
15925#endif
15926 use pm_kind, only: RKC => RK5
15927 procedure(real(RKC)) :: getFunc
15928 real(RKC) , intent(in) :: lb
15929 type(pinf_type) , intent(in) :: ub
15930 real(RKC) , intent(in) :: abstol
15931 real(RKC) , intent(in) :: reltol
15932 type(GK21_type) , intent(in) :: qrule
15933 type(wcauchy_type) , intent(in) :: help
15934 real(RKC) , intent(out) :: integral, abserr
15935 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15936 integer(IK) , intent(out) , contiguous :: sindex(:)
15937 integer(IK) , intent(out) :: neval
15938 integer(IK) , intent(out) :: nint
15939 integer(IK) :: err
15940 end function
15941#endif
15942
15943#if RK4_ENABLED
15944 module function QAWC_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15946 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK4
15947#endif
15948 use pm_kind, only: RKC => RK4
15949 procedure(real(RKC)) :: getFunc
15950 real(RKC) , intent(in) :: lb
15951 type(pinf_type) , intent(in) :: ub
15952 real(RKC) , intent(in) :: abstol
15953 real(RKC) , intent(in) :: reltol
15954 type(GK21_type) , intent(in) :: qrule
15955 type(wcauchy_type) , intent(in) :: help
15956 real(RKC) , intent(out) :: integral, abserr
15957 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15958 integer(IK) , intent(out) , contiguous :: sindex(:)
15959 integer(IK) , intent(out) :: neval
15960 integer(IK) , intent(out) :: nint
15961 integer(IK) :: err
15962 end function
15963#endif
15964
15965#if RK3_ENABLED
15966 module function QAWC_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15968 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK3
15969#endif
15970 use pm_kind, only: RKC => RK3
15971 procedure(real(RKC)) :: getFunc
15972 real(RKC) , intent(in) :: lb
15973 type(pinf_type) , intent(in) :: ub
15974 real(RKC) , intent(in) :: abstol
15975 real(RKC) , intent(in) :: reltol
15976 type(GK21_type) , intent(in) :: qrule
15977 type(wcauchy_type) , intent(in) :: help
15978 real(RKC) , intent(out) :: integral, abserr
15979 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15980 integer(IK) , intent(out) , contiguous :: sindex(:)
15981 integer(IK) , intent(out) :: neval
15982 integer(IK) , intent(out) :: nint
15983 integer(IK) :: err
15984 end function
15985#endif
15986
15987#if RK2_ENABLED
15988 module function QAWC_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15990 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK2
15991#endif
15992 use pm_kind, only: RKC => RK2
15993 procedure(real(RKC)) :: getFunc
15994 real(RKC) , intent(in) :: lb
15995 type(pinf_type) , intent(in) :: ub
15996 real(RKC) , intent(in) :: abstol
15997 real(RKC) , intent(in) :: reltol
15998 type(GK21_type) , intent(in) :: qrule
15999 type(wcauchy_type) , intent(in) :: help
16000 real(RKC) , intent(out) :: integral, abserr
16001 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16002 integer(IK) , intent(out) , contiguous :: sindex(:)
16003 integer(IK) , intent(out) :: neval
16004 integer(IK) , intent(out) :: nint
16005 integer(IK) :: err
16006 end function
16007#endif
16008
16009#if RK1_ENABLED
16010 module function QAWC_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16012 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK1
16013#endif
16014 use pm_kind, only: RKC => RK1
16015 procedure(real(RKC)) :: getFunc
16016 real(RKC) , intent(in) :: lb
16017 type(pinf_type) , intent(in) :: ub
16018 real(RKC) , intent(in) :: abstol
16019 real(RKC) , intent(in) :: reltol
16020 type(GK21_type) , intent(in) :: qrule
16021 type(wcauchy_type) , intent(in) :: help
16022 real(RKC) , intent(out) :: integral, abserr
16023 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16024 integer(IK) , intent(out) , contiguous :: sindex(:)
16025 integer(IK) , intent(out) :: neval
16026 integer(IK) , intent(out) :: nint
16027 integer(IK) :: err
16028 end function
16029#endif
16030
16031 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16032
16033#if RK5_ENABLED
16034 module function QAWC_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16036 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK5
16037#endif
16038 use pm_kind, only: RKC => RK5
16039 procedure(real(RKC)) :: getFunc
16040 real(RKC) , intent(in) :: lb
16041 type(pinf_type) , intent(in) :: ub
16042 real(RKC) , intent(in) :: abstol
16043 real(RKC) , intent(in) :: reltol
16044 type(GK31_type) , intent(in) :: qrule
16045 type(wcauchy_type) , intent(in) :: help
16046 real(RKC) , intent(out) :: integral, abserr
16047 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16048 integer(IK) , intent(out) , contiguous :: sindex(:)
16049 integer(IK) , intent(out) :: neval
16050 integer(IK) , intent(out) :: nint
16051 integer(IK) :: err
16052 end function
16053#endif
16054
16055#if RK4_ENABLED
16056 module function QAWC_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16058 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK4
16059#endif
16060 use pm_kind, only: RKC => RK4
16061 procedure(real(RKC)) :: getFunc
16062 real(RKC) , intent(in) :: lb
16063 type(pinf_type) , intent(in) :: ub
16064 real(RKC) , intent(in) :: abstol
16065 real(RKC) , intent(in) :: reltol
16066 type(GK31_type) , intent(in) :: qrule
16067 type(wcauchy_type) , intent(in) :: help
16068 real(RKC) , intent(out) :: integral, abserr
16069 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16070 integer(IK) , intent(out) , contiguous :: sindex(:)
16071 integer(IK) , intent(out) :: neval
16072 integer(IK) , intent(out) :: nint
16073 integer(IK) :: err
16074 end function
16075#endif
16076
16077#if RK3_ENABLED
16078 module function QAWC_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16080 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK3
16081#endif
16082 use pm_kind, only: RKC => RK3
16083 procedure(real(RKC)) :: getFunc
16084 real(RKC) , intent(in) :: lb
16085 type(pinf_type) , intent(in) :: ub
16086 real(RKC) , intent(in) :: abstol
16087 real(RKC) , intent(in) :: reltol
16088 type(GK31_type) , intent(in) :: qrule
16089 type(wcauchy_type) , intent(in) :: help
16090 real(RKC) , intent(out) :: integral, abserr
16091 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16092 integer(IK) , intent(out) , contiguous :: sindex(:)
16093 integer(IK) , intent(out) :: neval
16094 integer(IK) , intent(out) :: nint
16095 integer(IK) :: err
16096 end function
16097#endif
16098
16099#if RK2_ENABLED
16100 module function QAWC_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16102 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK2
16103#endif
16104 use pm_kind, only: RKC => RK2
16105 procedure(real(RKC)) :: getFunc
16106 real(RKC) , intent(in) :: lb
16107 type(pinf_type) , intent(in) :: ub
16108 real(RKC) , intent(in) :: abstol
16109 real(RKC) , intent(in) :: reltol
16110 type(GK31_type) , intent(in) :: qrule
16111 type(wcauchy_type) , intent(in) :: help
16112 real(RKC) , intent(out) :: integral, abserr
16113 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16114 integer(IK) , intent(out) , contiguous :: sindex(:)
16115 integer(IK) , intent(out) :: neval
16116 integer(IK) , intent(out) :: nint
16117 integer(IK) :: err
16118 end function
16119#endif
16120
16121#if RK1_ENABLED
16122 module function QAWC_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16124 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK1
16125#endif
16126 use pm_kind, only: RKC => RK1
16127 procedure(real(RKC)) :: getFunc
16128 real(RKC) , intent(in) :: lb
16129 type(pinf_type) , intent(in) :: ub
16130 real(RKC) , intent(in) :: abstol
16131 real(RKC) , intent(in) :: reltol
16132 type(GK31_type) , intent(in) :: qrule
16133 type(wcauchy_type) , intent(in) :: help
16134 real(RKC) , intent(out) :: integral, abserr
16135 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16136 integer(IK) , intent(out) , contiguous :: sindex(:)
16137 integer(IK) , intent(out) :: neval
16138 integer(IK) , intent(out) :: nint
16139 integer(IK) :: err
16140 end function
16141#endif
16142
16143 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16144
16145#if RK5_ENABLED
16146 module function QAWC_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16148 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK5
16149#endif
16150 use pm_kind, only: RKC => RK5
16151 procedure(real(RKC)) :: getFunc
16152 real(RKC) , intent(in) :: lb
16153 type(pinf_type) , intent(in) :: ub
16154 real(RKC) , intent(in) :: abstol
16155 real(RKC) , intent(in) :: reltol
16156 type(GK41_type) , intent(in) :: qrule
16157 type(wcauchy_type) , intent(in) :: help
16158 real(RKC) , intent(out) :: integral, abserr
16159 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16160 integer(IK) , intent(out) , contiguous :: sindex(:)
16161 integer(IK) , intent(out) :: neval
16162 integer(IK) , intent(out) :: nint
16163 integer(IK) :: err
16164 end function
16165#endif
16166
16167#if RK4_ENABLED
16168 module function QAWC_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16170 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK4
16171#endif
16172 use pm_kind, only: RKC => RK4
16173 procedure(real(RKC)) :: getFunc
16174 real(RKC) , intent(in) :: lb
16175 type(pinf_type) , intent(in) :: ub
16176 real(RKC) , intent(in) :: abstol
16177 real(RKC) , intent(in) :: reltol
16178 type(GK41_type) , intent(in) :: qrule
16179 type(wcauchy_type) , intent(in) :: help
16180 real(RKC) , intent(out) :: integral, abserr
16181 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16182 integer(IK) , intent(out) , contiguous :: sindex(:)
16183 integer(IK) , intent(out) :: neval
16184 integer(IK) , intent(out) :: nint
16185 integer(IK) :: err
16186 end function
16187#endif
16188
16189#if RK3_ENABLED
16190 module function QAWC_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16192 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK3
16193#endif
16194 use pm_kind, only: RKC => RK3
16195 procedure(real(RKC)) :: getFunc
16196 real(RKC) , intent(in) :: lb
16197 type(pinf_type) , intent(in) :: ub
16198 real(RKC) , intent(in) :: abstol
16199 real(RKC) , intent(in) :: reltol
16200 type(GK41_type) , intent(in) :: qrule
16201 type(wcauchy_type) , intent(in) :: help
16202 real(RKC) , intent(out) :: integral, abserr
16203 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16204 integer(IK) , intent(out) , contiguous :: sindex(:)
16205 integer(IK) , intent(out) :: neval
16206 integer(IK) , intent(out) :: nint
16207 integer(IK) :: err
16208 end function
16209#endif
16210
16211#if RK2_ENABLED
16212 module function QAWC_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16214 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK2
16215#endif
16216 use pm_kind, only: RKC => RK2
16217 procedure(real(RKC)) :: getFunc
16218 real(RKC) , intent(in) :: lb
16219 type(pinf_type) , intent(in) :: ub
16220 real(RKC) , intent(in) :: abstol
16221 real(RKC) , intent(in) :: reltol
16222 type(GK41_type) , intent(in) :: qrule
16223 type(wcauchy_type) , intent(in) :: help
16224 real(RKC) , intent(out) :: integral, abserr
16225 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16226 integer(IK) , intent(out) , contiguous :: sindex(:)
16227 integer(IK) , intent(out) :: neval
16228 integer(IK) , intent(out) :: nint
16229 integer(IK) :: err
16230 end function
16231#endif
16232
16233#if RK1_ENABLED
16234 module function QAWC_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16236 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK1
16237#endif
16238 use pm_kind, only: RKC => RK1
16239 procedure(real(RKC)) :: getFunc
16240 real(RKC) , intent(in) :: lb
16241 type(pinf_type) , intent(in) :: ub
16242 real(RKC) , intent(in) :: abstol
16243 real(RKC) , intent(in) :: reltol
16244 type(GK41_type) , intent(in) :: qrule
16245 type(wcauchy_type) , intent(in) :: help
16246 real(RKC) , intent(out) :: integral, abserr
16247 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16248 integer(IK) , intent(out) , contiguous :: sindex(:)
16249 integer(IK) , intent(out) :: neval
16250 integer(IK) , intent(out) :: nint
16251 integer(IK) :: err
16252 end function
16253#endif
16254
16255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16256
16257#if RK5_ENABLED
16258 module function QAWC_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16260 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK5
16261#endif
16262 use pm_kind, only: RKC => RK5
16263 procedure(real(RKC)) :: getFunc
16264 real(RKC) , intent(in) :: lb
16265 type(pinf_type) , intent(in) :: ub
16266 real(RKC) , intent(in) :: abstol
16267 real(RKC) , intent(in) :: reltol
16268 type(GK51_type) , intent(in) :: qrule
16269 type(wcauchy_type) , intent(in) :: help
16270 real(RKC) , intent(out) :: integral, abserr
16271 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16272 integer(IK) , intent(out) , contiguous :: sindex(:)
16273 integer(IK) , intent(out) :: neval
16274 integer(IK) , intent(out) :: nint
16275 integer(IK) :: err
16276 end function
16277#endif
16278
16279#if RK4_ENABLED
16280 module function QAWC_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16282 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK4
16283#endif
16284 use pm_kind, only: RKC => RK4
16285 procedure(real(RKC)) :: getFunc
16286 real(RKC) , intent(in) :: lb
16287 type(pinf_type) , intent(in) :: ub
16288 real(RKC) , intent(in) :: abstol
16289 real(RKC) , intent(in) :: reltol
16290 type(GK51_type) , intent(in) :: qrule
16291 type(wcauchy_type) , intent(in) :: help
16292 real(RKC) , intent(out) :: integral, abserr
16293 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16294 integer(IK) , intent(out) , contiguous :: sindex(:)
16295 integer(IK) , intent(out) :: neval
16296 integer(IK) , intent(out) :: nint
16297 integer(IK) :: err
16298 end function
16299#endif
16300
16301#if RK3_ENABLED
16302 module function QAWC_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16304 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK3
16305#endif
16306 use pm_kind, only: RKC => RK3
16307 procedure(real(RKC)) :: getFunc
16308 real(RKC) , intent(in) :: lb
16309 type(pinf_type) , intent(in) :: ub
16310 real(RKC) , intent(in) :: abstol
16311 real(RKC) , intent(in) :: reltol
16312 type(GK51_type) , intent(in) :: qrule
16313 type(wcauchy_type) , intent(in) :: help
16314 real(RKC) , intent(out) :: integral, abserr
16315 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16316 integer(IK) , intent(out) , contiguous :: sindex(:)
16317 integer(IK) , intent(out) :: neval
16318 integer(IK) , intent(out) :: nint
16319 integer(IK) :: err
16320 end function
16321#endif
16322
16323#if RK2_ENABLED
16324 module function QAWC_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16326 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK2
16327#endif
16328 use pm_kind, only: RKC => RK2
16329 procedure(real(RKC)) :: getFunc
16330 real(RKC) , intent(in) :: lb
16331 type(pinf_type) , intent(in) :: ub
16332 real(RKC) , intent(in) :: abstol
16333 real(RKC) , intent(in) :: reltol
16334 type(GK51_type) , intent(in) :: qrule
16335 type(wcauchy_type) , intent(in) :: help
16336 real(RKC) , intent(out) :: integral, abserr
16337 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16338 integer(IK) , intent(out) , contiguous :: sindex(:)
16339 integer(IK) , intent(out) :: neval
16340 integer(IK) , intent(out) :: nint
16341 integer(IK) :: err
16342 end function
16343#endif
16344
16345#if RK1_ENABLED
16346 module function QAWC_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16348 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK1
16349#endif
16350 use pm_kind, only: RKC => RK1
16351 procedure(real(RKC)) :: getFunc
16352 real(RKC) , intent(in) :: lb
16353 type(pinf_type) , intent(in) :: ub
16354 real(RKC) , intent(in) :: abstol
16355 real(RKC) , intent(in) :: reltol
16356 type(GK51_type) , intent(in) :: qrule
16357 type(wcauchy_type) , intent(in) :: help
16358 real(RKC) , intent(out) :: integral, abserr
16359 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16360 integer(IK) , intent(out) , contiguous :: sindex(:)
16361 integer(IK) , intent(out) :: neval
16362 integer(IK) , intent(out) :: nint
16363 integer(IK) :: err
16364 end function
16365#endif
16366
16367 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16368
16369#if RK5_ENABLED
16370 module function QAWC_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16372 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK5
16373#endif
16374 use pm_kind, only: RKC => RK5
16375 procedure(real(RKC)) :: getFunc
16376 real(RKC) , intent(in) :: lb
16377 type(pinf_type) , intent(in) :: ub
16378 real(RKC) , intent(in) :: abstol
16379 real(RKC) , intent(in) :: reltol
16380 type(GK61_type) , intent(in) :: qrule
16381 type(wcauchy_type) , intent(in) :: help
16382 real(RKC) , intent(out) :: integral, abserr
16383 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16384 integer(IK) , intent(out) , contiguous :: sindex(:)
16385 integer(IK) , intent(out) :: neval
16386 integer(IK) , intent(out) :: nint
16387 integer(IK) :: err
16388 end function
16389#endif
16390
16391#if RK4_ENABLED
16392 module function QAWC_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16394 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK4
16395#endif
16396 use pm_kind, only: RKC => RK4
16397 procedure(real(RKC)) :: getFunc
16398 real(RKC) , intent(in) :: lb
16399 type(pinf_type) , intent(in) :: ub
16400 real(RKC) , intent(in) :: abstol
16401 real(RKC) , intent(in) :: reltol
16402 type(GK61_type) , intent(in) :: qrule
16403 type(wcauchy_type) , intent(in) :: help
16404 real(RKC) , intent(out) :: integral, abserr
16405 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16406 integer(IK) , intent(out) , contiguous :: sindex(:)
16407 integer(IK) , intent(out) :: neval
16408 integer(IK) , intent(out) :: nint
16409 integer(IK) :: err
16410 end function
16411#endif
16412
16413#if RK3_ENABLED
16414 module function QAWC_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16416 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK3
16417#endif
16418 use pm_kind, only: RKC => RK3
16419 procedure(real(RKC)) :: getFunc
16420 real(RKC) , intent(in) :: lb
16421 type(pinf_type) , intent(in) :: ub
16422 real(RKC) , intent(in) :: abstol
16423 real(RKC) , intent(in) :: reltol
16424 type(GK61_type) , intent(in) :: qrule
16425 type(wcauchy_type) , intent(in) :: help
16426 real(RKC) , intent(out) :: integral, abserr
16427 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16428 integer(IK) , intent(out) , contiguous :: sindex(:)
16429 integer(IK) , intent(out) :: neval
16430 integer(IK) , intent(out) :: nint
16431 integer(IK) :: err
16432 end function
16433#endif
16434
16435#if RK2_ENABLED
16436 module function QAWC_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16438 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK2
16439#endif
16440 use pm_kind, only: RKC => RK2
16441 procedure(real(RKC)) :: getFunc
16442 real(RKC) , intent(in) :: lb
16443 type(pinf_type) , intent(in) :: ub
16444 real(RKC) , intent(in) :: abstol
16445 real(RKC) , intent(in) :: reltol
16446 type(GK61_type) , intent(in) :: qrule
16447 type(wcauchy_type) , intent(in) :: help
16448 real(RKC) , intent(out) :: integral, abserr
16449 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16450 integer(IK) , intent(out) , contiguous :: sindex(:)
16451 integer(IK) , intent(out) :: neval
16452 integer(IK) , intent(out) :: nint
16453 integer(IK) :: err
16454 end function
16455#endif
16456
16457#if RK1_ENABLED
16458 module function QAWC_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16460 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK1
16461#endif
16462 use pm_kind, only: RKC => RK1
16463 procedure(real(RKC)) :: getFunc
16464 real(RKC) , intent(in) :: lb
16465 type(pinf_type) , intent(in) :: ub
16466 real(RKC) , intent(in) :: abstol
16467 real(RKC) , intent(in) :: reltol
16468 type(GK61_type) , intent(in) :: qrule
16469 type(wcauchy_type) , intent(in) :: help
16470 real(RKC) , intent(out) :: integral, abserr
16471 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16472 integer(IK) , intent(out) , contiguous :: sindex(:)
16473 integer(IK) , intent(out) :: neval
16474 integer(IK) , intent(out) :: nint
16475 integer(IK) :: err
16476 end function
16477#endif
16478
16479 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16480
16481#if RK5_ENABLED
16482 module function QAWC_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16484 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK5
16485#endif
16486 use pm_kind, only: RKC => RK5
16487 procedure(real(RKC)) :: getFunc
16488 real(RKC) , intent(in) :: lb
16489 type(pinf_type) , intent(in) :: ub
16490 real(RKC) , intent(in) :: abstol
16491 real(RKC) , intent(in) :: reltol
16492 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16493 type(wcauchy_type) , intent(in) :: help
16494 real(RKC) , intent(out) :: integral, abserr
16495 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16496 integer(IK) , intent(out) , contiguous :: sindex(:)
16497 integer(IK) , intent(out) :: neval
16498 integer(IK) , intent(out) :: nint
16499 integer(IK) :: err
16500 end function
16501#endif
16502
16503#if RK4_ENABLED
16504 module function QAWC_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16506 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK4
16507#endif
16508 use pm_kind, only: RKC => RK4
16509 procedure(real(RKC)) :: getFunc
16510 real(RKC) , intent(in) :: lb
16511 type(pinf_type) , intent(in) :: ub
16512 real(RKC) , intent(in) :: abstol
16513 real(RKC) , intent(in) :: reltol
16514 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16515 type(wcauchy_type) , intent(in) :: help
16516 real(RKC) , intent(out) :: integral, abserr
16517 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16518 integer(IK) , intent(out) , contiguous :: sindex(:)
16519 integer(IK) , intent(out) :: neval
16520 integer(IK) , intent(out) :: nint
16521 integer(IK) :: err
16522 end function
16523#endif
16524
16525#if RK3_ENABLED
16526 module function QAWC_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16528 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK3
16529#endif
16530 use pm_kind, only: RKC => RK3
16531 procedure(real(RKC)) :: getFunc
16532 real(RKC) , intent(in) :: lb
16533 type(pinf_type) , intent(in) :: ub
16534 real(RKC) , intent(in) :: abstol
16535 real(RKC) , intent(in) :: reltol
16536 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16537 type(wcauchy_type) , intent(in) :: help
16538 real(RKC) , intent(out) :: integral, abserr
16539 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16540 integer(IK) , intent(out) , contiguous :: sindex(:)
16541 integer(IK) , intent(out) :: neval
16542 integer(IK) , intent(out) :: nint
16543 integer(IK) :: err
16544 end function
16545#endif
16546
16547#if RK2_ENABLED
16548 module function QAWC_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16550 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK2
16551#endif
16552 use pm_kind, only: RKC => RK2
16553 procedure(real(RKC)) :: getFunc
16554 real(RKC) , intent(in) :: lb
16555 type(pinf_type) , intent(in) :: ub
16556 real(RKC) , intent(in) :: abstol
16557 real(RKC) , intent(in) :: reltol
16558 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16559 type(wcauchy_type) , intent(in) :: help
16560 real(RKC) , intent(out) :: integral, abserr
16561 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16562 integer(IK) , intent(out) , contiguous :: sindex(:)
16563 integer(IK) , intent(out) :: neval
16564 integer(IK) , intent(out) :: nint
16565 integer(IK) :: err
16566 end function
16567#endif
16568
16569#if RK1_ENABLED
16570 module function QAWC_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16572 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK1
16573#endif
16574 use pm_kind, only: RKC => RK1
16575 procedure(real(RKC)) :: getFunc
16576 real(RKC) , intent(in) :: lb
16577 type(pinf_type) , intent(in) :: ub
16578 real(RKC) , intent(in) :: abstol
16579 real(RKC) , intent(in) :: reltol
16580 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16581 type(wcauchy_type) , intent(in) :: help
16582 real(RKC) , intent(out) :: integral, abserr
16583 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16584 integer(IK) , intent(out) , contiguous :: sindex(:)
16585 integer(IK) , intent(out) :: neval
16586 integer(IK) , intent(out) :: nint
16587 integer(IK) :: err
16588 end function
16589#endif
16590
16591 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16592
16593 end interface
16594
16595 ! QAWC IF
16596
16597 interface getQuadErr
16598
16599 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16600
16601#if RK5_ENABLED
16602 module function QAWC_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16604 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK5
16605#endif
16606 use pm_kind, only: RKC => RK5
16607 procedure(real(RKC)) :: getFunc
16608 type(ninf_type) , intent(in) :: lb
16609 real(RKC) , intent(in) :: ub
16610 real(RKC) , intent(in) :: abstol
16611 real(RKC) , intent(in) :: reltol
16612 type(GK15_type) , intent(in) :: qrule
16613 type(wcauchy_type) , intent(in) :: help
16614 real(RKC) , intent(out) :: integral, abserr
16615 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16616 integer(IK) , intent(out) , contiguous :: sindex(:)
16617 integer(IK) , intent(out) :: neval
16618 integer(IK) , intent(out) :: nint
16619 integer(IK) :: err
16620 end function
16621#endif
16622
16623#if RK4_ENABLED
16624 module function QAWC_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16626 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK4
16627#endif
16628 use pm_kind, only: RKC => RK4
16629 procedure(real(RKC)) :: getFunc
16630 type(ninf_type) , intent(in) :: lb
16631 real(RKC) , intent(in) :: ub
16632 real(RKC) , intent(in) :: abstol
16633 real(RKC) , intent(in) :: reltol
16634 type(GK15_type) , intent(in) :: qrule
16635 type(wcauchy_type) , intent(in) :: help
16636 real(RKC) , intent(out) :: integral, abserr
16637 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16638 integer(IK) , intent(out) , contiguous :: sindex(:)
16639 integer(IK) , intent(out) :: neval
16640 integer(IK) , intent(out) :: nint
16641 integer(IK) :: err
16642 end function
16643#endif
16644
16645#if RK3_ENABLED
16646 module function QAWC_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16648 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK3
16649#endif
16650 use pm_kind, only: RKC => RK3
16651 procedure(real(RKC)) :: getFunc
16652 type(ninf_type) , intent(in) :: lb
16653 real(RKC) , intent(in) :: ub
16654 real(RKC) , intent(in) :: abstol
16655 real(RKC) , intent(in) :: reltol
16656 type(GK15_type) , intent(in) :: qrule
16657 type(wcauchy_type) , intent(in) :: help
16658 real(RKC) , intent(out) :: integral, abserr
16659 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16660 integer(IK) , intent(out) , contiguous :: sindex(:)
16661 integer(IK) , intent(out) :: neval
16662 integer(IK) , intent(out) :: nint
16663 integer(IK) :: err
16664 end function
16665#endif
16666
16667#if RK2_ENABLED
16668 module function QAWC_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16670 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK2
16671#endif
16672 use pm_kind, only: RKC => RK2
16673 procedure(real(RKC)) :: getFunc
16674 type(ninf_type) , intent(in) :: lb
16675 real(RKC) , intent(in) :: ub
16676 real(RKC) , intent(in) :: abstol
16677 real(RKC) , intent(in) :: reltol
16678 type(GK15_type) , intent(in) :: qrule
16679 type(wcauchy_type) , intent(in) :: help
16680 real(RKC) , intent(out) :: integral, abserr
16681 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16682 integer(IK) , intent(out) , contiguous :: sindex(:)
16683 integer(IK) , intent(out) :: neval
16684 integer(IK) , intent(out) :: nint
16685 integer(IK) :: err
16686 end function
16687#endif
16688
16689#if RK1_ENABLED
16690 module function QAWC_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16692 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK1
16693#endif
16694 use pm_kind, only: RKC => RK1
16695 procedure(real(RKC)) :: getFunc
16696 type(ninf_type) , intent(in) :: lb
16697 real(RKC) , intent(in) :: ub
16698 real(RKC) , intent(in) :: abstol
16699 real(RKC) , intent(in) :: reltol
16700 type(GK15_type) , intent(in) :: qrule
16701 type(wcauchy_type) , intent(in) :: help
16702 real(RKC) , intent(out) :: integral, abserr
16703 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16704 integer(IK) , intent(out) , contiguous :: sindex(:)
16705 integer(IK) , intent(out) :: neval
16706 integer(IK) , intent(out) :: nint
16707 integer(IK) :: err
16708 end function
16709#endif
16710
16711 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16712
16713#if RK5_ENABLED
16714 module function QAWC_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16716 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK5
16717#endif
16718 use pm_kind, only: RKC => RK5
16719 procedure(real(RKC)) :: getFunc
16720 type(ninf_type) , intent(in) :: lb
16721 real(RKC) , intent(in) :: ub
16722 real(RKC) , intent(in) :: abstol
16723 real(RKC) , intent(in) :: reltol
16724 type(GK21_type) , intent(in) :: qrule
16725 type(wcauchy_type) , intent(in) :: help
16726 real(RKC) , intent(out) :: integral, abserr
16727 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16728 integer(IK) , intent(out) , contiguous :: sindex(:)
16729 integer(IK) , intent(out) :: neval
16730 integer(IK) , intent(out) :: nint
16731 integer(IK) :: err
16732 end function
16733#endif
16734
16735#if RK4_ENABLED
16736 module function QAWC_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16738 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK4
16739#endif
16740 use pm_kind, only: RKC => RK4
16741 procedure(real(RKC)) :: getFunc
16742 type(ninf_type) , intent(in) :: lb
16743 real(RKC) , intent(in) :: ub
16744 real(RKC) , intent(in) :: abstol
16745 real(RKC) , intent(in) :: reltol
16746 type(GK21_type) , intent(in) :: qrule
16747 type(wcauchy_type) , intent(in) :: help
16748 real(RKC) , intent(out) :: integral, abserr
16749 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16750 integer(IK) , intent(out) , contiguous :: sindex(:)
16751 integer(IK) , intent(out) :: neval
16752 integer(IK) , intent(out) :: nint
16753 integer(IK) :: err
16754 end function
16755#endif
16756
16757#if RK3_ENABLED
16758 module function QAWC_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16760 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK3
16761#endif
16762 use pm_kind, only: RKC => RK3
16763 procedure(real(RKC)) :: getFunc
16764 type(ninf_type) , intent(in) :: lb
16765 real(RKC) , intent(in) :: ub
16766 real(RKC) , intent(in) :: abstol
16767 real(RKC) , intent(in) :: reltol
16768 type(GK21_type) , intent(in) :: qrule
16769 type(wcauchy_type) , intent(in) :: help
16770 real(RKC) , intent(out) :: integral, abserr
16771 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16772 integer(IK) , intent(out) , contiguous :: sindex(:)
16773 integer(IK) , intent(out) :: neval
16774 integer(IK) , intent(out) :: nint
16775 integer(IK) :: err
16776 end function
16777#endif
16778
16779#if RK2_ENABLED
16780 module function QAWC_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16782 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK2
16783#endif
16784 use pm_kind, only: RKC => RK2
16785 procedure(real(RKC)) :: getFunc
16786 type(ninf_type) , intent(in) :: lb
16787 real(RKC) , intent(in) :: ub
16788 real(RKC) , intent(in) :: abstol
16789 real(RKC) , intent(in) :: reltol
16790 type(GK21_type) , intent(in) :: qrule
16791 type(wcauchy_type) , intent(in) :: help
16792 real(RKC) , intent(out) :: integral, abserr
16793 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16794 integer(IK) , intent(out) , contiguous :: sindex(:)
16795 integer(IK) , intent(out) :: neval
16796 integer(IK) , intent(out) :: nint
16797 integer(IK) :: err
16798 end function
16799#endif
16800
16801#if RK1_ENABLED
16802 module function QAWC_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16804 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK1
16805#endif
16806 use pm_kind, only: RKC => RK1
16807 procedure(real(RKC)) :: getFunc
16808 type(ninf_type) , intent(in) :: lb
16809 real(RKC) , intent(in) :: ub
16810 real(RKC) , intent(in) :: abstol
16811 real(RKC) , intent(in) :: reltol
16812 type(GK21_type) , intent(in) :: qrule
16813 type(wcauchy_type) , intent(in) :: help
16814 real(RKC) , intent(out) :: integral, abserr
16815 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16816 integer(IK) , intent(out) , contiguous :: sindex(:)
16817 integer(IK) , intent(out) :: neval
16818 integer(IK) , intent(out) :: nint
16819 integer(IK) :: err
16820 end function
16821#endif
16822
16823 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16824
16825#if RK5_ENABLED
16826 module function QAWC_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16828 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK5
16829#endif
16830 use pm_kind, only: RKC => RK5
16831 procedure(real(RKC)) :: getFunc
16832 type(ninf_type) , intent(in) :: lb
16833 real(RKC) , intent(in) :: ub
16834 real(RKC) , intent(in) :: abstol
16835 real(RKC) , intent(in) :: reltol
16836 type(GK31_type) , intent(in) :: qrule
16837 type(wcauchy_type) , intent(in) :: help
16838 real(RKC) , intent(out) :: integral, abserr
16839 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16840 integer(IK) , intent(out) , contiguous :: sindex(:)
16841 integer(IK) , intent(out) :: neval
16842 integer(IK) , intent(out) :: nint
16843 integer(IK) :: err
16844 end function
16845#endif
16846
16847#if RK4_ENABLED
16848 module function QAWC_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16850 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK4
16851#endif
16852 use pm_kind, only: RKC => RK4
16853 procedure(real(RKC)) :: getFunc
16854 type(ninf_type) , intent(in) :: lb
16855 real(RKC) , intent(in) :: ub
16856 real(RKC) , intent(in) :: abstol
16857 real(RKC) , intent(in) :: reltol
16858 type(GK31_type) , intent(in) :: qrule
16859 type(wcauchy_type) , intent(in) :: help
16860 real(RKC) , intent(out) :: integral, abserr
16861 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16862 integer(IK) , intent(out) , contiguous :: sindex(:)
16863 integer(IK) , intent(out) :: neval
16864 integer(IK) , intent(out) :: nint
16865 integer(IK) :: err
16866 end function
16867#endif
16868
16869#if RK3_ENABLED
16870 module function QAWC_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16872 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK3
16873#endif
16874 use pm_kind, only: RKC => RK3
16875 procedure(real(RKC)) :: getFunc
16876 type(ninf_type) , intent(in) :: lb
16877 real(RKC) , intent(in) :: ub
16878 real(RKC) , intent(in) :: abstol
16879 real(RKC) , intent(in) :: reltol
16880 type(GK31_type) , intent(in) :: qrule
16881 type(wcauchy_type) , intent(in) :: help
16882 real(RKC) , intent(out) :: integral, abserr
16883 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16884 integer(IK) , intent(out) , contiguous :: sindex(:)
16885 integer(IK) , intent(out) :: neval
16886 integer(IK) , intent(out) :: nint
16887 integer(IK) :: err
16888 end function
16889#endif
16890
16891#if RK2_ENABLED
16892 module function QAWC_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16894 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK2
16895#endif
16896 use pm_kind, only: RKC => RK2
16897 procedure(real(RKC)) :: getFunc
16898 type(ninf_type) , intent(in) :: lb
16899 real(RKC) , intent(in) :: ub
16900 real(RKC) , intent(in) :: abstol
16901 real(RKC) , intent(in) :: reltol
16902 type(GK31_type) , intent(in) :: qrule
16903 type(wcauchy_type) , intent(in) :: help
16904 real(RKC) , intent(out) :: integral, abserr
16905 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16906 integer(IK) , intent(out) , contiguous :: sindex(:)
16907 integer(IK) , intent(out) :: neval
16908 integer(IK) , intent(out) :: nint
16909 integer(IK) :: err
16910 end function
16911#endif
16912
16913#if RK1_ENABLED
16914 module function QAWC_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16916 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK1
16917#endif
16918 use pm_kind, only: RKC => RK1
16919 procedure(real(RKC)) :: getFunc
16920 type(ninf_type) , intent(in) :: lb
16921 real(RKC) , intent(in) :: ub
16922 real(RKC) , intent(in) :: abstol
16923 real(RKC) , intent(in) :: reltol
16924 type(GK31_type) , intent(in) :: qrule
16925 type(wcauchy_type) , intent(in) :: help
16926 real(RKC) , intent(out) :: integral, abserr
16927 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16928 integer(IK) , intent(out) , contiguous :: sindex(:)
16929 integer(IK) , intent(out) :: neval
16930 integer(IK) , intent(out) :: nint
16931 integer(IK) :: err
16932 end function
16933#endif
16934
16935 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16936
16937#if RK5_ENABLED
16938 module function QAWC_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16940 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK5
16941#endif
16942 use pm_kind, only: RKC => RK5
16943 procedure(real(RKC)) :: getFunc
16944 type(ninf_type) , intent(in) :: lb
16945 real(RKC) , intent(in) :: ub
16946 real(RKC) , intent(in) :: abstol
16947 real(RKC) , intent(in) :: reltol
16948 type(GK41_type) , intent(in) :: qrule
16949 type(wcauchy_type) , intent(in) :: help
16950 real(RKC) , intent(out) :: integral, abserr
16951 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16952 integer(IK) , intent(out) , contiguous :: sindex(:)
16953 integer(IK) , intent(out) :: neval
16954 integer(IK) , intent(out) :: nint
16955 integer(IK) :: err
16956 end function
16957#endif
16958
16959#if RK4_ENABLED
16960 module function QAWC_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16962 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK4
16963#endif
16964 use pm_kind, only: RKC => RK4
16965 procedure(real(RKC)) :: getFunc
16966 type(ninf_type) , intent(in) :: lb
16967 real(RKC) , intent(in) :: ub
16968 real(RKC) , intent(in) :: abstol
16969 real(RKC) , intent(in) :: reltol
16970 type(GK41_type) , intent(in) :: qrule
16971 type(wcauchy_type) , intent(in) :: help
16972 real(RKC) , intent(out) :: integral, abserr
16973 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16974 integer(IK) , intent(out) , contiguous :: sindex(:)
16975 integer(IK) , intent(out) :: neval
16976 integer(IK) , intent(out) :: nint
16977 integer(IK) :: err
16978 end function
16979#endif
16980
16981#if RK3_ENABLED
16982 module function QAWC_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16984 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK3
16985#endif
16986 use pm_kind, only: RKC => RK3
16987 procedure(real(RKC)) :: getFunc
16988 type(ninf_type) , intent(in) :: lb
16989 real(RKC) , intent(in) :: ub
16990 real(RKC) , intent(in) :: abstol
16991 real(RKC) , intent(in) :: reltol
16992 type(GK41_type) , intent(in) :: qrule
16993 type(wcauchy_type) , intent(in) :: help
16994 real(RKC) , intent(out) :: integral, abserr
16995 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16996 integer(IK) , intent(out) , contiguous :: sindex(:)
16997 integer(IK) , intent(out) :: neval
16998 integer(IK) , intent(out) :: nint
16999 integer(IK) :: err
17000 end function
17001#endif
17002
17003#if RK2_ENABLED
17004 module function QAWC_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17006 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK2
17007#endif
17008 use pm_kind, only: RKC => RK2
17009 procedure(real(RKC)) :: getFunc
17010 type(ninf_type) , intent(in) :: lb
17011 real(RKC) , intent(in) :: ub
17012 real(RKC) , intent(in) :: abstol
17013 real(RKC) , intent(in) :: reltol
17014 type(GK41_type) , intent(in) :: qrule
17015 type(wcauchy_type) , intent(in) :: help
17016 real(RKC) , intent(out) :: integral, abserr
17017 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17018 integer(IK) , intent(out) , contiguous :: sindex(:)
17019 integer(IK) , intent(out) :: neval
17020 integer(IK) , intent(out) :: nint
17021 integer(IK) :: err
17022 end function
17023#endif
17024
17025#if RK1_ENABLED
17026 module function QAWC_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17028 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK1
17029#endif
17030 use pm_kind, only: RKC => RK1
17031 procedure(real(RKC)) :: getFunc
17032 type(ninf_type) , intent(in) :: lb
17033 real(RKC) , intent(in) :: ub
17034 real(RKC) , intent(in) :: abstol
17035 real(RKC) , intent(in) :: reltol
17036 type(GK41_type) , intent(in) :: qrule
17037 type(wcauchy_type) , intent(in) :: help
17038 real(RKC) , intent(out) :: integral, abserr
17039 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17040 integer(IK) , intent(out) , contiguous :: sindex(:)
17041 integer(IK) , intent(out) :: neval
17042 integer(IK) , intent(out) :: nint
17043 integer(IK) :: err
17044 end function
17045#endif
17046
17047 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17048
17049#if RK5_ENABLED
17050 module function QAWC_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17052 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK5
17053#endif
17054 use pm_kind, only: RKC => RK5
17055 procedure(real(RKC)) :: getFunc
17056 type(ninf_type) , intent(in) :: lb
17057 real(RKC) , intent(in) :: ub
17058 real(RKC) , intent(in) :: abstol
17059 real(RKC) , intent(in) :: reltol
17060 type(GK51_type) , intent(in) :: qrule
17061 type(wcauchy_type) , intent(in) :: help
17062 real(RKC) , intent(out) :: integral, abserr
17063 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17064 integer(IK) , intent(out) , contiguous :: sindex(:)
17065 integer(IK) , intent(out) :: neval
17066 integer(IK) , intent(out) :: nint
17067 integer(IK) :: err
17068 end function
17069#endif
17070
17071#if RK4_ENABLED
17072 module function QAWC_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17074 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK4
17075#endif
17076 use pm_kind, only: RKC => RK4
17077 procedure(real(RKC)) :: getFunc
17078 type(ninf_type) , intent(in) :: lb
17079 real(RKC) , intent(in) :: ub
17080 real(RKC) , intent(in) :: abstol
17081 real(RKC) , intent(in) :: reltol
17082 type(GK51_type) , intent(in) :: qrule
17083 type(wcauchy_type) , intent(in) :: help
17084 real(RKC) , intent(out) :: integral, abserr
17085 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17086 integer(IK) , intent(out) , contiguous :: sindex(:)
17087 integer(IK) , intent(out) :: neval
17088 integer(IK) , intent(out) :: nint
17089 integer(IK) :: err
17090 end function
17091#endif
17092
17093#if RK3_ENABLED
17094 module function QAWC_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17096 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK3
17097#endif
17098 use pm_kind, only: RKC => RK3
17099 procedure(real(RKC)) :: getFunc
17100 type(ninf_type) , intent(in) :: lb
17101 real(RKC) , intent(in) :: ub
17102 real(RKC) , intent(in) :: abstol
17103 real(RKC) , intent(in) :: reltol
17104 type(GK51_type) , intent(in) :: qrule
17105 type(wcauchy_type) , intent(in) :: help
17106 real(RKC) , intent(out) :: integral, abserr
17107 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17108 integer(IK) , intent(out) , contiguous :: sindex(:)
17109 integer(IK) , intent(out) :: neval
17110 integer(IK) , intent(out) :: nint
17111 integer(IK) :: err
17112 end function
17113#endif
17114
17115#if RK2_ENABLED
17116 module function QAWC_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17118 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK2
17119#endif
17120 use pm_kind, only: RKC => RK2
17121 procedure(real(RKC)) :: getFunc
17122 type(ninf_type) , intent(in) :: lb
17123 real(RKC) , intent(in) :: ub
17124 real(RKC) , intent(in) :: abstol
17125 real(RKC) , intent(in) :: reltol
17126 type(GK51_type) , intent(in) :: qrule
17127 type(wcauchy_type) , intent(in) :: help
17128 real(RKC) , intent(out) :: integral, abserr
17129 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17130 integer(IK) , intent(out) , contiguous :: sindex(:)
17131 integer(IK) , intent(out) :: neval
17132 integer(IK) , intent(out) :: nint
17133 integer(IK) :: err
17134 end function
17135#endif
17136
17137#if RK1_ENABLED
17138 module function QAWC_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17140 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK1
17141#endif
17142 use pm_kind, only: RKC => RK1
17143 procedure(real(RKC)) :: getFunc
17144 type(ninf_type) , intent(in) :: lb
17145 real(RKC) , intent(in) :: ub
17146 real(RKC) , intent(in) :: abstol
17147 real(RKC) , intent(in) :: reltol
17148 type(GK51_type) , intent(in) :: qrule
17149 type(wcauchy_type) , intent(in) :: help
17150 real(RKC) , intent(out) :: integral, abserr
17151 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17152 integer(IK) , intent(out) , contiguous :: sindex(:)
17153 integer(IK) , intent(out) :: neval
17154 integer(IK) , intent(out) :: nint
17155 integer(IK) :: err
17156 end function
17157#endif
17158
17159 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17160
17161#if RK5_ENABLED
17162 module function QAWC_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17164 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK5
17165#endif
17166 use pm_kind, only: RKC => RK5
17167 procedure(real(RKC)) :: getFunc
17168 type(ninf_type) , intent(in) :: lb
17169 real(RKC) , intent(in) :: ub
17170 real(RKC) , intent(in) :: abstol
17171 real(RKC) , intent(in) :: reltol
17172 type(GK61_type) , intent(in) :: qrule
17173 type(wcauchy_type) , intent(in) :: help
17174 real(RKC) , intent(out) :: integral, abserr
17175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17176 integer(IK) , intent(out) , contiguous :: sindex(:)
17177 integer(IK) , intent(out) :: neval
17178 integer(IK) , intent(out) :: nint
17179 integer(IK) :: err
17180 end function
17181#endif
17182
17183#if RK4_ENABLED
17184 module function QAWC_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17186 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK4
17187#endif
17188 use pm_kind, only: RKC => RK4
17189 procedure(real(RKC)) :: getFunc
17190 type(ninf_type) , intent(in) :: lb
17191 real(RKC) , intent(in) :: ub
17192 real(RKC) , intent(in) :: abstol
17193 real(RKC) , intent(in) :: reltol
17194 type(GK61_type) , intent(in) :: qrule
17195 type(wcauchy_type) , intent(in) :: help
17196 real(RKC) , intent(out) :: integral, abserr
17197 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17198 integer(IK) , intent(out) , contiguous :: sindex(:)
17199 integer(IK) , intent(out) :: neval
17200 integer(IK) , intent(out) :: nint
17201 integer(IK) :: err
17202 end function
17203#endif
17204
17205#if RK3_ENABLED
17206 module function QAWC_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17208 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK3
17209#endif
17210 use pm_kind, only: RKC => RK3
17211 procedure(real(RKC)) :: getFunc
17212 type(ninf_type) , intent(in) :: lb
17213 real(RKC) , intent(in) :: ub
17214 real(RKC) , intent(in) :: abstol
17215 real(RKC) , intent(in) :: reltol
17216 type(GK61_type) , intent(in) :: qrule
17217 type(wcauchy_type) , intent(in) :: help
17218 real(RKC) , intent(out) :: integral, abserr
17219 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17220 integer(IK) , intent(out) , contiguous :: sindex(:)
17221 integer(IK) , intent(out) :: neval
17222 integer(IK) , intent(out) :: nint
17223 integer(IK) :: err
17224 end function
17225#endif
17226
17227#if RK2_ENABLED
17228 module function QAWC_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17230 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK2
17231#endif
17232 use pm_kind, only: RKC => RK2
17233 procedure(real(RKC)) :: getFunc
17234 type(ninf_type) , intent(in) :: lb
17235 real(RKC) , intent(in) :: ub
17236 real(RKC) , intent(in) :: abstol
17237 real(RKC) , intent(in) :: reltol
17238 type(GK61_type) , intent(in) :: qrule
17239 type(wcauchy_type) , intent(in) :: help
17240 real(RKC) , intent(out) :: integral, abserr
17241 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17242 integer(IK) , intent(out) , contiguous :: sindex(:)
17243 integer(IK) , intent(out) :: neval
17244 integer(IK) , intent(out) :: nint
17245 integer(IK) :: err
17246 end function
17247#endif
17248
17249#if RK1_ENABLED
17250 module function QAWC_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17252 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK1
17253#endif
17254 use pm_kind, only: RKC => RK1
17255 procedure(real(RKC)) :: getFunc
17256 type(ninf_type) , intent(in) :: lb
17257 real(RKC) , intent(in) :: ub
17258 real(RKC) , intent(in) :: abstol
17259 real(RKC) , intent(in) :: reltol
17260 type(GK61_type) , intent(in) :: qrule
17261 type(wcauchy_type) , intent(in) :: help
17262 real(RKC) , intent(out) :: integral, abserr
17263 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17264 integer(IK) , intent(out) , contiguous :: sindex(:)
17265 integer(IK) , intent(out) :: neval
17266 integer(IK) , intent(out) :: nint
17267 integer(IK) :: err
17268 end function
17269#endif
17270
17271 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17272
17273#if RK5_ENABLED
17274 module function QAWC_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17276 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK5
17277#endif
17278 use pm_kind, only: RKC => RK5
17279 procedure(real(RKC)) :: getFunc
17280 type(ninf_type) , intent(in) :: lb
17281 real(RKC) , intent(in) :: ub
17282 real(RKC) , intent(in) :: abstol
17283 real(RKC) , intent(in) :: reltol
17284 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17285 type(wcauchy_type) , intent(in) :: help
17286 real(RKC) , intent(out) :: integral, abserr
17287 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17288 integer(IK) , intent(out) , contiguous :: sindex(:)
17289 integer(IK) , intent(out) :: neval
17290 integer(IK) , intent(out) :: nint
17291 integer(IK) :: err
17292 end function
17293#endif
17294
17295#if RK4_ENABLED
17296 module function QAWC_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17298 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK4
17299#endif
17300 use pm_kind, only: RKC => RK4
17301 procedure(real(RKC)) :: getFunc
17302 type(ninf_type) , intent(in) :: lb
17303 real(RKC) , intent(in) :: ub
17304 real(RKC) , intent(in) :: abstol
17305 real(RKC) , intent(in) :: reltol
17306 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17307 type(wcauchy_type) , intent(in) :: help
17308 real(RKC) , intent(out) :: integral, abserr
17309 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17310 integer(IK) , intent(out) , contiguous :: sindex(:)
17311 integer(IK) , intent(out) :: neval
17312 integer(IK) , intent(out) :: nint
17313 integer(IK) :: err
17314 end function
17315#endif
17316
17317#if RK3_ENABLED
17318 module function QAWC_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17320 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK3
17321#endif
17322 use pm_kind, only: RKC => RK3
17323 procedure(real(RKC)) :: getFunc
17324 type(ninf_type) , intent(in) :: lb
17325 real(RKC) , intent(in) :: ub
17326 real(RKC) , intent(in) :: abstol
17327 real(RKC) , intent(in) :: reltol
17328 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17329 type(wcauchy_type) , intent(in) :: help
17330 real(RKC) , intent(out) :: integral, abserr
17331 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17332 integer(IK) , intent(out) , contiguous :: sindex(:)
17333 integer(IK) , intent(out) :: neval
17334 integer(IK) , intent(out) :: nint
17335 integer(IK) :: err
17336 end function
17337#endif
17338
17339#if RK2_ENABLED
17340 module function QAWC_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17342 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK2
17343#endif
17344 use pm_kind, only: RKC => RK2
17345 procedure(real(RKC)) :: getFunc
17346 type(ninf_type) , intent(in) :: lb
17347 real(RKC) , intent(in) :: ub
17348 real(RKC) , intent(in) :: abstol
17349 real(RKC) , intent(in) :: reltol
17350 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17351 type(wcauchy_type) , intent(in) :: help
17352 real(RKC) , intent(out) :: integral, abserr
17353 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17354 integer(IK) , intent(out) , contiguous :: sindex(:)
17355 integer(IK) , intent(out) :: neval
17356 integer(IK) , intent(out) :: nint
17357 integer(IK) :: err
17358 end function
17359#endif
17360
17361#if RK1_ENABLED
17362 module function QAWC_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17364 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK1
17365#endif
17366 use pm_kind, only: RKC => RK1
17367 procedure(real(RKC)) :: getFunc
17368 type(ninf_type) , intent(in) :: lb
17369 real(RKC) , intent(in) :: ub
17370 real(RKC) , intent(in) :: abstol
17371 real(RKC) , intent(in) :: reltol
17372 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17373 type(wcauchy_type) , intent(in) :: help
17374 real(RKC) , intent(out) :: integral, abserr
17375 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17376 integer(IK) , intent(out) , contiguous :: sindex(:)
17377 integer(IK) , intent(out) :: neval
17378 integer(IK) , intent(out) :: nint
17379 integer(IK) :: err
17380 end function
17381#endif
17382
17383 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17384
17385 end interface
17386
17387 ! QAWC II
17388
17389 interface getQuadErr
17390
17391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17392
17393#if RK5_ENABLED
17394 module function QAWC_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17396 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK5
17397#endif
17398 use pm_kind, only: RKC => RK5
17399 procedure(real(RKC)) :: getFunc
17400 type(ninf_type) , intent(in) :: lb
17401 type(pinf_type) , intent(in) :: ub
17402 real(RKC) , intent(in) :: abstol
17403 real(RKC) , intent(in) :: reltol
17404 type(GK15_type) , intent(in) :: qrule
17405 type(wcauchy_type) , intent(in) :: help
17406 real(RKC) , intent(out) :: integral, abserr
17407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17408 integer(IK) , intent(out) , contiguous :: sindex(:)
17409 integer(IK) , intent(out) :: neval
17410 integer(IK) , intent(out) :: nint
17411 integer(IK) :: err
17412 end function
17413#endif
17414
17415#if RK4_ENABLED
17416 module function QAWC_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17418 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK4
17419#endif
17420 use pm_kind, only: RKC => RK4
17421 procedure(real(RKC)) :: getFunc
17422 type(ninf_type) , intent(in) :: lb
17423 type(pinf_type) , intent(in) :: ub
17424 real(RKC) , intent(in) :: abstol
17425 real(RKC) , intent(in) :: reltol
17426 type(GK15_type) , intent(in) :: qrule
17427 type(wcauchy_type) , intent(in) :: help
17428 real(RKC) , intent(out) :: integral, abserr
17429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17430 integer(IK) , intent(out) , contiguous :: sindex(:)
17431 integer(IK) , intent(out) :: neval
17432 integer(IK) , intent(out) :: nint
17433 integer(IK) :: err
17434 end function
17435#endif
17436
17437#if RK3_ENABLED
17438 module function QAWC_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17440 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK3
17441#endif
17442 use pm_kind, only: RKC => RK3
17443 procedure(real(RKC)) :: getFunc
17444 type(ninf_type) , intent(in) :: lb
17445 type(pinf_type) , intent(in) :: ub
17446 real(RKC) , intent(in) :: abstol
17447 real(RKC) , intent(in) :: reltol
17448 type(GK15_type) , intent(in) :: qrule
17449 type(wcauchy_type) , intent(in) :: help
17450 real(RKC) , intent(out) :: integral, abserr
17451 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17452 integer(IK) , intent(out) , contiguous :: sindex(:)
17453 integer(IK) , intent(out) :: neval
17454 integer(IK) , intent(out) :: nint
17455 integer(IK) :: err
17456 end function
17457#endif
17458
17459#if RK2_ENABLED
17460 module function QAWC_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17462 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK2
17463#endif
17464 use pm_kind, only: RKC => RK2
17465 procedure(real(RKC)) :: getFunc
17466 type(ninf_type) , intent(in) :: lb
17467 type(pinf_type) , intent(in) :: ub
17468 real(RKC) , intent(in) :: abstol
17469 real(RKC) , intent(in) :: reltol
17470 type(GK15_type) , intent(in) :: qrule
17471 type(wcauchy_type) , intent(in) :: help
17472 real(RKC) , intent(out) :: integral, abserr
17473 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17474 integer(IK) , intent(out) , contiguous :: sindex(:)
17475 integer(IK) , intent(out) :: neval
17476 integer(IK) , intent(out) :: nint
17477 integer(IK) :: err
17478 end function
17479#endif
17480
17481#if RK1_ENABLED
17482 module function QAWC_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17484 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK1
17485#endif
17486 use pm_kind, only: RKC => RK1
17487 procedure(real(RKC)) :: getFunc
17488 type(ninf_type) , intent(in) :: lb
17489 type(pinf_type) , intent(in) :: ub
17490 real(RKC) , intent(in) :: abstol
17491 real(RKC) , intent(in) :: reltol
17492 type(GK15_type) , intent(in) :: qrule
17493 type(wcauchy_type) , intent(in) :: help
17494 real(RKC) , intent(out) :: integral, abserr
17495 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17496 integer(IK) , intent(out) , contiguous :: sindex(:)
17497 integer(IK) , intent(out) :: neval
17498 integer(IK) , intent(out) :: nint
17499 integer(IK) :: err
17500 end function
17501#endif
17502
17503 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17504
17505#if RK5_ENABLED
17506 module function QAWC_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17508 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK5
17509#endif
17510 use pm_kind, only: RKC => RK5
17511 procedure(real(RKC)) :: getFunc
17512 type(ninf_type) , intent(in) :: lb
17513 type(pinf_type) , intent(in) :: ub
17514 real(RKC) , intent(in) :: abstol
17515 real(RKC) , intent(in) :: reltol
17516 type(GK21_type) , intent(in) :: qrule
17517 type(wcauchy_type) , intent(in) :: help
17518 real(RKC) , intent(out) :: integral, abserr
17519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17520 integer(IK) , intent(out) , contiguous :: sindex(:)
17521 integer(IK) , intent(out) :: neval
17522 integer(IK) , intent(out) :: nint
17523 integer(IK) :: err
17524 end function
17525#endif
17526
17527#if RK4_ENABLED
17528 module function QAWC_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17530 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK4
17531#endif
17532 use pm_kind, only: RKC => RK4
17533 procedure(real(RKC)) :: getFunc
17534 type(ninf_type) , intent(in) :: lb
17535 type(pinf_type) , intent(in) :: ub
17536 real(RKC) , intent(in) :: abstol
17537 real(RKC) , intent(in) :: reltol
17538 type(GK21_type) , intent(in) :: qrule
17539 type(wcauchy_type) , intent(in) :: help
17540 real(RKC) , intent(out) :: integral, abserr
17541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17542 integer(IK) , intent(out) , contiguous :: sindex(:)
17543 integer(IK) , intent(out) :: neval
17544 integer(IK) , intent(out) :: nint
17545 integer(IK) :: err
17546 end function
17547#endif
17548
17549#if RK3_ENABLED
17550 module function QAWC_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17552 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK3
17553#endif
17554 use pm_kind, only: RKC => RK3
17555 procedure(real(RKC)) :: getFunc
17556 type(ninf_type) , intent(in) :: lb
17557 type(pinf_type) , intent(in) :: ub
17558 real(RKC) , intent(in) :: abstol
17559 real(RKC) , intent(in) :: reltol
17560 type(GK21_type) , intent(in) :: qrule
17561 type(wcauchy_type) , intent(in) :: help
17562 real(RKC) , intent(out) :: integral, abserr
17563 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17564 integer(IK) , intent(out) , contiguous :: sindex(:)
17565 integer(IK) , intent(out) :: neval
17566 integer(IK) , intent(out) :: nint
17567 integer(IK) :: err
17568 end function
17569#endif
17570
17571#if RK2_ENABLED
17572 module function QAWC_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17574 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK2
17575#endif
17576 use pm_kind, only: RKC => RK2
17577 procedure(real(RKC)) :: getFunc
17578 type(ninf_type) , intent(in) :: lb
17579 type(pinf_type) , intent(in) :: ub
17580 real(RKC) , intent(in) :: abstol
17581 real(RKC) , intent(in) :: reltol
17582 type(GK21_type) , intent(in) :: qrule
17583 type(wcauchy_type) , intent(in) :: help
17584 real(RKC) , intent(out) :: integral, abserr
17585 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17586 integer(IK) , intent(out) , contiguous :: sindex(:)
17587 integer(IK) , intent(out) :: neval
17588 integer(IK) , intent(out) :: nint
17589 integer(IK) :: err
17590 end function
17591#endif
17592
17593#if RK1_ENABLED
17594 module function QAWC_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17596 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK1
17597#endif
17598 use pm_kind, only: RKC => RK1
17599 procedure(real(RKC)) :: getFunc
17600 type(ninf_type) , intent(in) :: lb
17601 type(pinf_type) , intent(in) :: ub
17602 real(RKC) , intent(in) :: abstol
17603 real(RKC) , intent(in) :: reltol
17604 type(GK21_type) , intent(in) :: qrule
17605 type(wcauchy_type) , intent(in) :: help
17606 real(RKC) , intent(out) :: integral, abserr
17607 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17608 integer(IK) , intent(out) , contiguous :: sindex(:)
17609 integer(IK) , intent(out) :: neval
17610 integer(IK) , intent(out) :: nint
17611 integer(IK) :: err
17612 end function
17613#endif
17614
17615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17616
17617#if RK5_ENABLED
17618 module function QAWC_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17620 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK5
17621#endif
17622 use pm_kind, only: RKC => RK5
17623 procedure(real(RKC)) :: getFunc
17624 type(ninf_type) , intent(in) :: lb
17625 type(pinf_type) , intent(in) :: ub
17626 real(RKC) , intent(in) :: abstol
17627 real(RKC) , intent(in) :: reltol
17628 type(GK31_type) , intent(in) :: qrule
17629 type(wcauchy_type) , intent(in) :: help
17630 real(RKC) , intent(out) :: integral, abserr
17631 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17632 integer(IK) , intent(out) , contiguous :: sindex(:)
17633 integer(IK) , intent(out) :: neval
17634 integer(IK) , intent(out) :: nint
17635 integer(IK) :: err
17636 end function
17637#endif
17638
17639#if RK4_ENABLED
17640 module function QAWC_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17642 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK4
17643#endif
17644 use pm_kind, only: RKC => RK4
17645 procedure(real(RKC)) :: getFunc
17646 type(ninf_type) , intent(in) :: lb
17647 type(pinf_type) , intent(in) :: ub
17648 real(RKC) , intent(in) :: abstol
17649 real(RKC) , intent(in) :: reltol
17650 type(GK31_type) , intent(in) :: qrule
17651 type(wcauchy_type) , intent(in) :: help
17652 real(RKC) , intent(out) :: integral, abserr
17653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17654 integer(IK) , intent(out) , contiguous :: sindex(:)
17655 integer(IK) , intent(out) :: neval
17656 integer(IK) , intent(out) :: nint
17657 integer(IK) :: err
17658 end function
17659#endif
17660
17661#if RK3_ENABLED
17662 module function QAWC_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17664 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK3
17665#endif
17666 use pm_kind, only: RKC => RK3
17667 procedure(real(RKC)) :: getFunc
17668 type(ninf_type) , intent(in) :: lb
17669 type(pinf_type) , intent(in) :: ub
17670 real(RKC) , intent(in) :: abstol
17671 real(RKC) , intent(in) :: reltol
17672 type(GK31_type) , intent(in) :: qrule
17673 type(wcauchy_type) , intent(in) :: help
17674 real(RKC) , intent(out) :: integral, abserr
17675 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17676 integer(IK) , intent(out) , contiguous :: sindex(:)
17677 integer(IK) , intent(out) :: neval
17678 integer(IK) , intent(out) :: nint
17679 integer(IK) :: err
17680 end function
17681#endif
17682
17683#if RK2_ENABLED
17684 module function QAWC_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17686 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK2
17687#endif
17688 use pm_kind, only: RKC => RK2
17689 procedure(real(RKC)) :: getFunc
17690 type(ninf_type) , intent(in) :: lb
17691 type(pinf_type) , intent(in) :: ub
17692 real(RKC) , intent(in) :: abstol
17693 real(RKC) , intent(in) :: reltol
17694 type(GK31_type) , intent(in) :: qrule
17695 type(wcauchy_type) , intent(in) :: help
17696 real(RKC) , intent(out) :: integral, abserr
17697 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17698 integer(IK) , intent(out) , contiguous :: sindex(:)
17699 integer(IK) , intent(out) :: neval
17700 integer(IK) , intent(out) :: nint
17701 integer(IK) :: err
17702 end function
17703#endif
17704
17705#if RK1_ENABLED
17706 module function QAWC_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17708 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK1
17709#endif
17710 use pm_kind, only: RKC => RK1
17711 procedure(real(RKC)) :: getFunc
17712 type(ninf_type) , intent(in) :: lb
17713 type(pinf_type) , intent(in) :: ub
17714 real(RKC) , intent(in) :: abstol
17715 real(RKC) , intent(in) :: reltol
17716 type(GK31_type) , intent(in) :: qrule
17717 type(wcauchy_type) , intent(in) :: help
17718 real(RKC) , intent(out) :: integral, abserr
17719 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17720 integer(IK) , intent(out) , contiguous :: sindex(:)
17721 integer(IK) , intent(out) :: neval
17722 integer(IK) , intent(out) :: nint
17723 integer(IK) :: err
17724 end function
17725#endif
17726
17727 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17728
17729#if RK5_ENABLED
17730 module function QAWC_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17732 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK5
17733#endif
17734 use pm_kind, only: RKC => RK5
17735 procedure(real(RKC)) :: getFunc
17736 type(ninf_type) , intent(in) :: lb
17737 type(pinf_type) , intent(in) :: ub
17738 real(RKC) , intent(in) :: abstol
17739 real(RKC) , intent(in) :: reltol
17740 type(GK41_type) , intent(in) :: qrule
17741 type(wcauchy_type) , intent(in) :: help
17742 real(RKC) , intent(out) :: integral, abserr
17743 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17744 integer(IK) , intent(out) , contiguous :: sindex(:)
17745 integer(IK) , intent(out) :: neval
17746 integer(IK) , intent(out) :: nint
17747 integer(IK) :: err
17748 end function
17749#endif
17750
17751#if RK4_ENABLED
17752 module function QAWC_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17754 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK4
17755#endif
17756 use pm_kind, only: RKC => RK4
17757 procedure(real(RKC)) :: getFunc
17758 type(ninf_type) , intent(in) :: lb
17759 type(pinf_type) , intent(in) :: ub
17760 real(RKC) , intent(in) :: abstol
17761 real(RKC) , intent(in) :: reltol
17762 type(GK41_type) , intent(in) :: qrule
17763 type(wcauchy_type) , intent(in) :: help
17764 real(RKC) , intent(out) :: integral, abserr
17765 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17766 integer(IK) , intent(out) , contiguous :: sindex(:)
17767 integer(IK) , intent(out) :: neval
17768 integer(IK) , intent(out) :: nint
17769 integer(IK) :: err
17770 end function
17771#endif
17772
17773#if RK3_ENABLED
17774 module function QAWC_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17776 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK3
17777#endif
17778 use pm_kind, only: RKC => RK3
17779 procedure(real(RKC)) :: getFunc
17780 type(ninf_type) , intent(in) :: lb
17781 type(pinf_type) , intent(in) :: ub
17782 real(RKC) , intent(in) :: abstol
17783 real(RKC) , intent(in) :: reltol
17784 type(GK41_type) , intent(in) :: qrule
17785 type(wcauchy_type) , intent(in) :: help
17786 real(RKC) , intent(out) :: integral, abserr
17787 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17788 integer(IK) , intent(out) , contiguous :: sindex(:)
17789 integer(IK) , intent(out) :: neval
17790 integer(IK) , intent(out) :: nint
17791 integer(IK) :: err
17792 end function
17793#endif
17794
17795#if RK2_ENABLED
17796 module function QAWC_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17798 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK2
17799#endif
17800 use pm_kind, only: RKC => RK2
17801 procedure(real(RKC)) :: getFunc
17802 type(ninf_type) , intent(in) :: lb
17803 type(pinf_type) , intent(in) :: ub
17804 real(RKC) , intent(in) :: abstol
17805 real(RKC) , intent(in) :: reltol
17806 type(GK41_type) , intent(in) :: qrule
17807 type(wcauchy_type) , intent(in) :: help
17808 real(RKC) , intent(out) :: integral, abserr
17809 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17810 integer(IK) , intent(out) , contiguous :: sindex(:)
17811 integer(IK) , intent(out) :: neval
17812 integer(IK) , intent(out) :: nint
17813 integer(IK) :: err
17814 end function
17815#endif
17816
17817#if RK1_ENABLED
17818 module function QAWC_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17820 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK1
17821#endif
17822 use pm_kind, only: RKC => RK1
17823 procedure(real(RKC)) :: getFunc
17824 type(ninf_type) , intent(in) :: lb
17825 type(pinf_type) , intent(in) :: ub
17826 real(RKC) , intent(in) :: abstol
17827 real(RKC) , intent(in) :: reltol
17828 type(GK41_type) , intent(in) :: qrule
17829 type(wcauchy_type) , intent(in) :: help
17830 real(RKC) , intent(out) :: integral, abserr
17831 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17832 integer(IK) , intent(out) , contiguous :: sindex(:)
17833 integer(IK) , intent(out) :: neval
17834 integer(IK) , intent(out) :: nint
17835 integer(IK) :: err
17836 end function
17837#endif
17838
17839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17840
17841#if RK5_ENABLED
17842 module function QAWC_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17844 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK5
17845#endif
17846 use pm_kind, only: RKC => RK5
17847 procedure(real(RKC)) :: getFunc
17848 type(ninf_type) , intent(in) :: lb
17849 type(pinf_type) , intent(in) :: ub
17850 real(RKC) , intent(in) :: abstol
17851 real(RKC) , intent(in) :: reltol
17852 type(GK51_type) , intent(in) :: qrule
17853 type(wcauchy_type) , intent(in) :: help
17854 real(RKC) , intent(out) :: integral, abserr
17855 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17856 integer(IK) , intent(out) , contiguous :: sindex(:)
17857 integer(IK) , intent(out) :: neval
17858 integer(IK) , intent(out) :: nint
17859 integer(IK) :: err
17860 end function
17861#endif
17862
17863#if RK4_ENABLED
17864 module function QAWC_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17866 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK4
17867#endif
17868 use pm_kind, only: RKC => RK4
17869 procedure(real(RKC)) :: getFunc
17870 type(ninf_type) , intent(in) :: lb
17871 type(pinf_type) , intent(in) :: ub
17872 real(RKC) , intent(in) :: abstol
17873 real(RKC) , intent(in) :: reltol
17874 type(GK51_type) , intent(in) :: qrule
17875 type(wcauchy_type) , intent(in) :: help
17876 real(RKC) , intent(out) :: integral, abserr
17877 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17878 integer(IK) , intent(out) , contiguous :: sindex(:)
17879 integer(IK) , intent(out) :: neval
17880 integer(IK) , intent(out) :: nint
17881 integer(IK) :: err
17882 end function
17883#endif
17884
17885#if RK3_ENABLED
17886 module function QAWC_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17888 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK3
17889#endif
17890 use pm_kind, only: RKC => RK3
17891 procedure(real(RKC)) :: getFunc
17892 type(ninf_type) , intent(in) :: lb
17893 type(pinf_type) , intent(in) :: ub
17894 real(RKC) , intent(in) :: abstol
17895 real(RKC) , intent(in) :: reltol
17896 type(GK51_type) , intent(in) :: qrule
17897 type(wcauchy_type) , intent(in) :: help
17898 real(RKC) , intent(out) :: integral, abserr
17899 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17900 integer(IK) , intent(out) , contiguous :: sindex(:)
17901 integer(IK) , intent(out) :: neval
17902 integer(IK) , intent(out) :: nint
17903 integer(IK) :: err
17904 end function
17905#endif
17906
17907#if RK2_ENABLED
17908 module function QAWC_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17910 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK2
17911#endif
17912 use pm_kind, only: RKC => RK2
17913 procedure(real(RKC)) :: getFunc
17914 type(ninf_type) , intent(in) :: lb
17915 type(pinf_type) , intent(in) :: ub
17916 real(RKC) , intent(in) :: abstol
17917 real(RKC) , intent(in) :: reltol
17918 type(GK51_type) , intent(in) :: qrule
17919 type(wcauchy_type) , intent(in) :: help
17920 real(RKC) , intent(out) :: integral, abserr
17921 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17922 integer(IK) , intent(out) , contiguous :: sindex(:)
17923 integer(IK) , intent(out) :: neval
17924 integer(IK) , intent(out) :: nint
17925 integer(IK) :: err
17926 end function
17927#endif
17928
17929#if RK1_ENABLED
17930 module function QAWC_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17932 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK1
17933#endif
17934 use pm_kind, only: RKC => RK1
17935 procedure(real(RKC)) :: getFunc
17936 type(ninf_type) , intent(in) :: lb
17937 type(pinf_type) , intent(in) :: ub
17938 real(RKC) , intent(in) :: abstol
17939 real(RKC) , intent(in) :: reltol
17940 type(GK51_type) , intent(in) :: qrule
17941 type(wcauchy_type) , intent(in) :: help
17942 real(RKC) , intent(out) :: integral, abserr
17943 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17944 integer(IK) , intent(out) , contiguous :: sindex(:)
17945 integer(IK) , intent(out) :: neval
17946 integer(IK) , intent(out) :: nint
17947 integer(IK) :: err
17948 end function
17949#endif
17950
17951 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17952
17953#if RK5_ENABLED
17954 module function QAWC_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17956 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK5
17957#endif
17958 use pm_kind, only: RKC => RK5
17959 procedure(real(RKC)) :: getFunc
17960 type(ninf_type) , intent(in) :: lb
17961 type(pinf_type) , intent(in) :: ub
17962 real(RKC) , intent(in) :: abstol
17963 real(RKC) , intent(in) :: reltol
17964 type(GK61_type) , intent(in) :: qrule
17965 type(wcauchy_type) , intent(in) :: help
17966 real(RKC) , intent(out) :: integral, abserr
17967 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17968 integer(IK) , intent(out) , contiguous :: sindex(:)
17969 integer(IK) , intent(out) :: neval
17970 integer(IK) , intent(out) :: nint
17971 integer(IK) :: err
17972 end function
17973#endif
17974
17975#if RK4_ENABLED
17976 module function QAWC_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17978 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK4
17979#endif
17980 use pm_kind, only: RKC => RK4
17981 procedure(real(RKC)) :: getFunc
17982 type(ninf_type) , intent(in) :: lb
17983 type(pinf_type) , intent(in) :: ub
17984 real(RKC) , intent(in) :: abstol
17985 real(RKC) , intent(in) :: reltol
17986 type(GK61_type) , intent(in) :: qrule
17987 type(wcauchy_type) , intent(in) :: help
17988 real(RKC) , intent(out) :: integral, abserr
17989 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17990 integer(IK) , intent(out) , contiguous :: sindex(:)
17991 integer(IK) , intent(out) :: neval
17992 integer(IK) , intent(out) :: nint
17993 integer(IK) :: err
17994 end function
17995#endif
17996
17997#if RK3_ENABLED
17998 module function QAWC_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18000 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK3
18001#endif
18002 use pm_kind, only: RKC => RK3
18003 procedure(real(RKC)) :: getFunc
18004 type(ninf_type) , intent(in) :: lb
18005 type(pinf_type) , intent(in) :: ub
18006 real(RKC) , intent(in) :: abstol
18007 real(RKC) , intent(in) :: reltol
18008 type(GK61_type) , intent(in) :: qrule
18009 type(wcauchy_type) , intent(in) :: help
18010 real(RKC) , intent(out) :: integral, abserr
18011 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18012 integer(IK) , intent(out) , contiguous :: sindex(:)
18013 integer(IK) , intent(out) :: neval
18014 integer(IK) , intent(out) :: nint
18015 integer(IK) :: err
18016 end function
18017#endif
18018
18019#if RK2_ENABLED
18020 module function QAWC_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18022 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK2
18023#endif
18024 use pm_kind, only: RKC => RK2
18025 procedure(real(RKC)) :: getFunc
18026 type(ninf_type) , intent(in) :: lb
18027 type(pinf_type) , intent(in) :: ub
18028 real(RKC) , intent(in) :: abstol
18029 real(RKC) , intent(in) :: reltol
18030 type(GK61_type) , intent(in) :: qrule
18031 type(wcauchy_type) , intent(in) :: help
18032 real(RKC) , intent(out) :: integral, abserr
18033 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18034 integer(IK) , intent(out) , contiguous :: sindex(:)
18035 integer(IK) , intent(out) :: neval
18036 integer(IK) , intent(out) :: nint
18037 integer(IK) :: err
18038 end function
18039#endif
18040
18041#if RK1_ENABLED
18042 module function QAWC_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18044 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK1
18045#endif
18046 use pm_kind, only: RKC => RK1
18047 procedure(real(RKC)) :: getFunc
18048 type(ninf_type) , intent(in) :: lb
18049 type(pinf_type) , intent(in) :: ub
18050 real(RKC) , intent(in) :: abstol
18051 real(RKC) , intent(in) :: reltol
18052 type(GK61_type) , intent(in) :: qrule
18053 type(wcauchy_type) , intent(in) :: help
18054 real(RKC) , intent(out) :: integral, abserr
18055 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18056 integer(IK) , intent(out) , contiguous :: sindex(:)
18057 integer(IK) , intent(out) :: neval
18058 integer(IK) , intent(out) :: nint
18059 integer(IK) :: err
18060 end function
18061#endif
18062
18063 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18064
18065#if RK5_ENABLED
18066 module function QAWC_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18068 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK5
18069#endif
18070 use pm_kind, only: RKC => RK5
18071 procedure(real(RKC)) :: getFunc
18072 type(ninf_type) , intent(in) :: lb
18073 type(pinf_type) , intent(in) :: ub
18074 real(RKC) , intent(in) :: abstol
18075 real(RKC) , intent(in) :: reltol
18076 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18077 type(wcauchy_type) , intent(in) :: help
18078 real(RKC) , intent(out) :: integral, abserr
18079 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18080 integer(IK) , intent(out) , contiguous :: sindex(:)
18081 integer(IK) , intent(out) :: neval
18082 integer(IK) , intent(out) :: nint
18083 integer(IK) :: err
18084 end function
18085#endif
18086
18087#if RK4_ENABLED
18088 module function QAWC_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18090 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK4
18091#endif
18092 use pm_kind, only: RKC => RK4
18093 procedure(real(RKC)) :: getFunc
18094 type(ninf_type) , intent(in) :: lb
18095 type(pinf_type) , intent(in) :: ub
18096 real(RKC) , intent(in) :: abstol
18097 real(RKC) , intent(in) :: reltol
18098 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18099 type(wcauchy_type) , intent(in) :: help
18100 real(RKC) , intent(out) :: integral, abserr
18101 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18102 integer(IK) , intent(out) , contiguous :: sindex(:)
18103 integer(IK) , intent(out) :: neval
18104 integer(IK) , intent(out) :: nint
18105 integer(IK) :: err
18106 end function
18107#endif
18108
18109#if RK3_ENABLED
18110 module function QAWC_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18112 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK3
18113#endif
18114 use pm_kind, only: RKC => RK3
18115 procedure(real(RKC)) :: getFunc
18116 type(ninf_type) , intent(in) :: lb
18117 type(pinf_type) , intent(in) :: ub
18118 real(RKC) , intent(in) :: abstol
18119 real(RKC) , intent(in) :: reltol
18120 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18121 type(wcauchy_type) , intent(in) :: help
18122 real(RKC) , intent(out) :: integral, abserr
18123 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18124 integer(IK) , intent(out) , contiguous :: sindex(:)
18125 integer(IK) , intent(out) :: neval
18126 integer(IK) , intent(out) :: nint
18127 integer(IK) :: err
18128 end function
18129#endif
18130
18131#if RK2_ENABLED
18132 module function QAWC_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18134 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK2
18135#endif
18136 use pm_kind, only: RKC => RK2
18137 procedure(real(RKC)) :: getFunc
18138 type(ninf_type) , intent(in) :: lb
18139 type(pinf_type) , intent(in) :: ub
18140 real(RKC) , intent(in) :: abstol
18141 real(RKC) , intent(in) :: reltol
18142 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18143 type(wcauchy_type) , intent(in) :: help
18144 real(RKC) , intent(out) :: integral, abserr
18145 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18146 integer(IK) , intent(out) , contiguous :: sindex(:)
18147 integer(IK) , intent(out) :: neval
18148 integer(IK) , intent(out) :: nint
18149 integer(IK) :: err
18150 end function
18151#endif
18152
18153#if RK1_ENABLED
18154 module function QAWC_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18156 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK1
18157#endif
18158 use pm_kind, only: RKC => RK1
18159 procedure(real(RKC)) :: getFunc
18160 type(ninf_type) , intent(in) :: lb
18161 type(pinf_type) , intent(in) :: ub
18162 real(RKC) , intent(in) :: abstol
18163 real(RKC) , intent(in) :: reltol
18164 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18165 type(wcauchy_type) , intent(in) :: help
18166 real(RKC) , intent(out) :: integral, abserr
18167 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18168 integer(IK) , intent(out) , contiguous :: sindex(:)
18169 integer(IK) , intent(out) :: neval
18170 integer(IK) , intent(out) :: nint
18171 integer(IK) :: err
18172 end function
18173#endif
18174
18175 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18176
18177 end interface
18178
18179!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18180
18181end module pm_quadPack
pm_quadPack::getQuadErr
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Definition: pm_quadPack.F90:5571
pm_quadPack::getQuadGK
Compute the 1D integral of the input scalar integrand getFunc on the finite or infinite interval [a,...
Definition: pm_quadPack.F90:2205
pm_quadPack::isFailedQuad
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Definition: pm_quadPack.F90:4919
pm_quadPack::setChebExpan
Compute and return the series expansion of the input function values via the Chebyshev polynomials of...
Definition: pm_quadPack.F90:4768
pm_quadPack::setErrSorted
Sort the input local error estimates list (resulting from the interval subdivision process of the Ada...
Definition: pm_quadPack.F90:4642
pm_quadPack::setNodeWeightGK
Return the Kronrod nodes and weights of the extension to the -point Gauss-Legendre quadrature,...
Definition: pm_quadPack.F90:1969
pm_quadPack::setSeqLimEps
Return the limit of a given sequence of approximations via the Epsilon method of Wynn (1961).
Definition: pm_quadPack.F90:4529
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::RK5
integer, parameter RK5
Definition: pm_kind.F90:478
pm_kind::RK4
integer, parameter RK4
Definition: pm_kind.F90:489
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:511
pm_kind::RK3
integer, parameter RK3
Definition: pm_kind.F90:500
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::RKB
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
Definition: pm_kind.F90:1182
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858
pm_kind::RK1
integer, parameter RK1
Definition: pm_kind.F90:522
pm_mathConst
This module contains relevant mathematical constants.
Definition: pm_mathConst.F90:36
pm_mathConst::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_mathConst.F90:42
pm_mathConst::ninf
type(ninf_type), parameter ninf
The scalar constant object of type ninf_type that indicates the use of the negative infinity as an i...
Definition: pm_mathConst.F90:423
pm_mathConst::pinf
type(pinf_type), parameter pinf
The scalar constant object of type pinf_type that indicates the use of the positive infinity as an i...
Definition: pm_mathConst.F90:467
pm_quadPack
This module contains classes and procedures for non-adaptive and adaptive global numerical quadrature...
Definition: pm_quadPack.F90:141
pm_quadPack::weightG30
real(RKB), dimension(15), parameter weightG30
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1781
pm_quadPack::nodeG25
real(RKB), dimension(13), parameter nodeG25
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1506
pm_quadPack::MAXLEN_EPSTAB
integer(IK), parameter MAXLEN_EPSTAB
The scalar integer of default kind IK, containing the maximum size of the Table of Epsilon algorithm.
Definition: pm_quadPack.F90:4434
pm_quadPack::weightK41
real(RKB), dimension(21), parameter weightK41
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1387
pm_quadPack::weightK31
real(RKB), dimension(16), parameter weightK31
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1169
pm_quadPack::nodeK41
real(RKB), dimension(21), parameter nodeK41
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1345
pm_quadPack::nodeG15
real(RKB), dimension(8), parameter nodeG15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1074
pm_quadPack::nodeG30
real(RKB), dimension(15), parameter nodeG30
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1745
pm_quadPack::nodeK15
real(RKB), dimension(8), parameter nodeK15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:748
pm_quadPack::weightK21
real(RKB), dimension(11), parameter weightK21
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:967
pm_quadPack::nodeK61
real(RKB), dimension(31), parameter nodeK61
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1818
pm_quadPack::nodeK31
real(RKB), dimension(16), parameter nodeK31
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1132
pm_quadPack::nodeG7
real(RKB), dimension(4), parameter nodeG7
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:698
pm_quadPack::GK31
type(GK31_type), parameter GK31
The scalar constant object of type GK31_type that indicates the use of 15-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1053
pm_quadPack::weightG10
real(RKB), dimension(5), parameter weightG10
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:909
pm_quadPack::weightG25
real(RKB), dimension(13), parameter weightG25
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1540
pm_quadPack::GK51
type(GK51_type), parameter GK51
The scalar constant object of type GK51_type that indicates the use of 25-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1484
pm_quadPack::nodeK21
real(RKB), dimension(11), parameter nodeK21
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:935
pm_quadPack::weightK15
real(RKB), dimension(8), parameter weightK15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:777
pm_quadPack::weightG7
real(RKB), dimension(4), parameter weightG7
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:723
pm_quadPack::weps
type(weps_type), parameter weps
The scalar constant object of type weps_type that indicates the use of Epsilon extrapolation method o...
Definition: pm_quadPack.F90:4484
pm_quadPack::weightK51
real(RKB), dimension(26), parameter weightK51
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1621
pm_quadPack::weightG20
real(RKB), dimension(10), parameter weightG20
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1314
pm_quadPack::nodeK51
real(RKB), dimension(26), parameter nodeK51
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1574
pm_quadPack::GK61
type(GK61_type), parameter GK61
The scalar constant object of type GK61_type that indicates the use of 30-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1723
pm_quadPack::GK21
type(GK21_type), parameter GK21
The scalar constant object of type GK21_type that indicates the use of 10-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:861
pm_quadPack::nodeG10
real(RKB), dimension(5), parameter nodeG10
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:883
pm_quadPack::weightK61
real(RKB), dimension(31), parameter weightK61
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1870
pm_quadPack::weightG15
real(RKB), dimension(8), parameter weightG15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1103
pm_quadPack::GK15
type(GK15_type), parameter GK15
The scalar constant object of type GK15_type that indicates the use of 7-point Gauss-Legendre quadrat...
Definition: pm_quadPack.F90:676
pm_quadPack::nodeG20
real(RKB), dimension(10), parameter nodeG20
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1283
pm_quadPack::GK41
type(GK41_type), parameter GK41
The scalar constant object of type GK41_type that indicates the use of 20-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1261
pm_mathConst::ninf_type
This is the indicator type for generating instances of objects that indicate the use of the negative ...
Definition: pm_mathConst.F90:406
pm_mathConst::pinf_type
This is the indicator type for generating instances of objects that indicate the use of the positive ...
Definition: pm_mathConst.F90:450
pm_quadPack::GK15_type
This is the indicator type for generating instances of objects that indicate the use of 7-point Gauss...
Definition: pm_quadPack.F90:646
pm_quadPack::GK21_type
This is the indicator type for generating instances of objects that indicate the use of 10-point Gaus...
Definition: pm_quadPack.F90:830
pm_quadPack::GK31_type
This is the indicator type for generating instances of objects that indicate the use of 15-point Gaus...
Definition: pm_quadPack.F90:1022
pm_quadPack::GK41_type
This is the indicator type for generating instances of objects that indicate the use of 20-point Gaus...
Definition: pm_quadPack.F90:1230
pm_quadPack::GK51_type
This is the indicator type for generating instances of objects that indicate the use of 25-point Gaus...
Definition: pm_quadPack.F90:1453
pm_quadPack::GK61_type
This is the indicator type for generating instances of objects that indicate the use of 30-point Gaus...
Definition: pm_quadPack.F90:1692
pm_quadPack::wcauchy_type
This is the derived type for constructing objects that signify the computation of the Cauchy Principa...
Definition: pm_quadPack.F90:193
pm_quadPack::wcos_type
This is the derived type for constructing objects that signify the computation of the integral an arb...
Definition: pm_quadPack.F90:497
pm_quadPack::weps_type
This is the indicator type for generating instances of objects that indicate the use of Epsilon extra...
Definition: pm_quadPack.F90:4463
pm_quadPack::wsin_type
This is the derived type for constructing objects that signify the computation of the integral an arb...
Definition: pm_quadPack.F90:345